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Introduction 


The objective of the database development task is to produce a propulsion database 
which is easy to use and modify while also being comprehensive in the level of detail 
available. The database is to be available on the Macintosh computer system. The 
task is to extend across all three years of the contract. Consequently, a significant 
fraction of the effort in this first year of the task was devoted to the development of 
the database structure to ensure a robust base for the following years’ efforts. 
Nonetheless, significant point design propulsion system descriptions and 
parametric models were also produced. 

It is desirable that the database be usable for both the preliminary analysis of whole 
classes of propulsion systems (e.g., a booster engine using LOX/RP for a wide range 
of thrust levels) and for the analysis of existing propulsion systems (e.g., SSME, RD- 
170, etc.). Since it would be very difficult to fulfill both these uses with only one 
database structure, it was decided to develop two separate tools, one for each type of 

usage. 

The first usage (analysis of classes of propulsion systems) is normally implemented 
by a series of unrelated tools written as spreadsheet models, or as dedicated code 
(most commonly written in Fortran) and running on mainframes, workstations, or 
PCs. These tools normally can not communicate with each other and are written 
without common structure - they calculate weight breakdowns to different sets of 
components even for similar engine types and calculate performance in different 
manners. This usage requires large amounts of calculations, methods of data 
presentation unique to each propulsion type (and sometimes to different engine 
classes within a type), and benefits from automated parametric data generation and 
automated preparation of graphs (e.g., weight versus mixture ratio). 

The commercial tool type which comes closest to meeting these needs is a 
spreadsheet, particularly one with good graphing capabilities, an extensive 
scripting or macro language, and the ability to access external code written in 
different computer languages (especially Fortran). Both Resolve and Excel were 
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considered and Resolve was chosen because its scripting language is extensive and 
very easy to use even by casual users, and because its charting capabilities 
(including the scripting of all elements of each chart) were more extensive than 
Excel (at least until Excel 4 which was not available to the author at the time). It 
subsequently became known that Resolve also puts fewer limits on the use of 
Fortran externals than Excel. This second usage type will be referred to throughout 
the rest of the report as a “parametric propulsion database”. 

The second usage can be implemented with a classic database structure where a 
large number of pieces of information (as numbers, text blocks, and 
pictures/graphics) about each of a number of specific existing or conceptual 
propulsion systems is stored. The information describes the single design point 
engine with some information about operation at off-design conditions. Each 
propulsion system can be stored as a record with the individual pieces of 
information stored as fields within the record. Minimal calculation is needed, but 
the ability to sort, group, and aggregate (i.e., all engines using RP with vacuum 
thrust above a specified number) is needed. Consequently, for this usage, referred to 
throughout the rest of the report as a “propulsion system database” a commercial 
database was chosen. Both 4th Dimension and FileMaker Pro were considered. 
FileMaker Pro was chosen because it is much easier to change, both in structure 
and output, even by casual users. It is also much more readily available because of 
its much lower cost, cross platform capability (Macintosh and PC with Windows), 
and lack of need of dedicated, experienced users. 

Each of the two propulsion databases, parametric propulsion database and 
propulsion system database, are described in the rest of the report. The descriptions 
include a user’s guide to each code, write-ups for models used, and sample output. 
Because of the large number of pages of figures in relation to the length of text, this 
report is structured with the text all at the front and then followed by the 90 pages of 
figures relating to the parametric propulsion database, which is in turn followed by 
the 151 pages of figures relating to the propulsion system database. 

An appendix includes three technical notes describing how to attach external code 
written in Fortran to both Resolve and to Excel. These procedures were developed 
during this year’s effort with the Excel work done on Rocketdyne resources and the 
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Resolve work done on a combination of contract and Rocketdyne resources. 
Interactions with tech support at Claris (the publisher of Resolve), Microsoft (the 
publisher of Excel), and at the publisher of the Macintosh Fortran compiler used, 
indicate that the use of Fortran externals with either Resolve or Excel breaks new 
ground. This capability will be extremely useful for the parametric propulsion 
database throughout the rest of this effort and should be very useful in general to 
anyone within the aerospace community using Macintosh computers. 
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Parametric Propulsion Database 

The parametric propulsion database was developed using the Macintosh 
spreadsheet Resolve, version l.lvl (published by Claris). It was developed on a 
Macintosh II fx running system 7 with the tuneup kit. It was developed using an 
Apple 13 inch color monitor. It has been checked in black and white mode, on a 
limited number of other Macintosh computer types, and with system 6.0.5. Two 
problems were encountered during these checks: some color choices were changed 
to work in black and white mode, and the Fortran externals were recompiled in two 
forms so they would work on Macintoshs without math coprocessors, but would also 
take advantage of the coprocessors when present. 

The parametric propulsion database consists of two files and one folder (which in 

turn contains three files): 

Parametric Database 

Library 

Externals 

OHSCC 
ORPGG 
Nuclear Rkt 


The file “Library” and the folder “Externals" must be in the same folder as the 
application “Claris Resolve”. The file “Parametric Database” can be placed 
anywhere. None of these file or folder names can be changed because they are used 
explicitly by name in calls by scripts in the database. The file “Parametric Database” 
is a Resolve spreadsheet which is double-clicked to run the parametric propulsion 
database. It uses the file “Library” to update its worksheet script. “Library” contains 
a number of functions which are called by other scripts. The file Library is 
actually only needed when changes are made to the worksheet script. The program 
will run without “Library” (although two error messages will occur) but changes 
cannot be made, even temporarily, to the worksheet script. The folder “Externals” 
contains the three compiled Fortran codes (with embedded hooks written in C - see 
Appendix) currently used by the database. 
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The model renuires the fonts “Bookman”, “New Century Schoolbook”, and 
“Helvetica” be installed (Postscript or True Type). If they are not available then most 
screens and output will be difficult to read and many words will not be fully visible 
in their defined columns. All three of these fonts came with the various Apple 
LaserWriters (and many other printers) and are readily available. The use of Adobe 
Type Manager (ATM) or True Type (with the True Type versions of the fonts) is 
highly recommended to improve the readability of the screen. 


To run the database simply double-click on the file “Parametric Database . The 
current version (version 1.4, 5 April 1993) contains the following models. 

Solid Fuel Boosters 

Large Motors (328K-8.9M lbf) using ASRM (ANB3652) propellant 
Large Motors (328K-8.9M lbf) using neutralized Mg (DL-H435) propellant 
Medium Motors (62K-328K lbf) using neutralized Mg (DL-H435) propellant 
Large Motors (328K-8.9M lbf) using non-chlorine (PGN/AN/AL) propellant 

Hybrid Boosters 

Large Motor (380K-21M lbf) using O 2 as oxidizer and HTPB and escorez as 
fuel - pressure fed 
Cryogenic Engines 

Large (100k-2M lbf) LOX/H 2 engines using staged combustion cycles 
Hydrocarbon Engines 

Large (500K-3M lbf) LOX/RP engines using gas generator cycles 

Nuclear Thermal Propulsion 

NERVA derived prismatic fuel solid core rocket. 

The solid fuel rocket booster and hybrid booster models are implemented as 
spreadsheet models, while the liquid engines and the nuclear engine are 
implemented as Fortran external functions. 

The basic philosophy of the model is to navigate a large spreadsheet by means of 
buttons that the user “clicks”. The buttons invoke scripts which change what portion 
of the spreadsheet is displayed (i.e., moves to the next “screen”), change the screen 
scaling to make the display fit, write spreadsheet formulas and data, or call 
external code. The buttons are where most of the “action” occurs and where most of 
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the calculation is done. The model is structurally dependent on scripting and the 
use of Fortran externals. About 60 pages of scripts are used and over 130K of 
compiled Fortran external code is used. 

Code Overview 

Figure 1 shows the result of double-clicking the file “Parametric Database”. 
Pressing the continue button takes the user to Figure 2 which is the main 
navigation screen. Only the Cryogenic, Hydrocarbon Fuels, Solid Fuels, Hybrid RB, 
and the Nuclear Thermal buttons are currently active. The Return button, which is 
present on all screens, always returns to the previous screen. 

Tracing the models under the Chemical label, pressing the Cryogenic button brings 
up Figure 3 and pressing the Hydrocarbon Fuels button brings up Figure 4. 
Pressing either of the Large LOX/H 2 or Large LOX/RP buttons brings up Figure 5. 
The figure will be slightly different depending on which button was pressed. Since 
the LOX/H 2 and LOX/RP models are implemented as external Fortran code, there 

are no equations under the numbers in the cells as would be expected in a 
spreadsheet. Because the same piece of spreadsheet “real estate” (i.e., the same 
cells) are used for both the LOX/H 2 and the LOX/RP models, the Calculate button in 

the upper left side of the screen must be pressed to produce numbers for the weights, 
lengths and performance. The independent variables, and the ranges through 
which each can be varied and remain within the validity of the model, are shown in 
the upper part of the screen on the yellow background. To examine a new case, 
change any or all of these independent variables and then press the calculate button. 
New values for the results will appear in the cells. 

Pressing the “English Units” button changes the button name to “Metric Units” and 
changes the results (only) to metric units. Pressing the button a second time 
reverses the process. The Print (Report) button sets up for printing the page (without 
buttons) in portrait mode and stripped of color. The Print (Briefing) button sets up 
for printing the page in landscape mode and stripped of color. These buttons work 
the same on other screens. The page setup dialog box will always come up because 
Resolve script does not have a means to specify landscape versus portrait mode, so 
the user must click the appropriate icon. 
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The model can be used to generate parametric data and produce a table and selected 
graphs of that data. To do so, press the Graphs button and the parametric 
generation screen of Figure 6 will appear. This screen shows the variables which 
can be used for parametrics as titles within yellow buttons. The parametrics 
possible are one dimensional, only one variable can be varied at a time. To make a 
parametric run using one of the independent variables that are shown on the yellow 
buttons, choose a range of the variable to vary. Input its starting value and its 
ending value in the column "Variable to Change" (within the limits that are shown 
under each yellow button), along with the number of discrete points (11 maximum) 
to calculate (the variable values must be evenly spaced throughout the range which 
is why only the number of points, as opposed to the actual values, is input). 

The column "Other Independent Variables" shows the values that will be used 
during the parametric run for the variables other than the one being varied. Use 
this column to change these values to those desired for the parametric run. These 
values start as the values from the previous screen, but they will change as 
parametrics are generated taking on the last value of the range used if they have 
been used in a previous parametric run. They should always be checked. When 
satisfied that the input is as desired, then press the yellow button that has the name 
of the variable that was chosen to vaiy. Pressing that button actually replaces the 
chosen independent variable in the screen of Figure 5, reads out the results, places 
them into a table and graphs, changes the variable again, reads out the results 

again, etc. 

After the yellow button is pressed to generate the parametric run, a portion of 
Figure 7 appears. This table can be printed (Figure 8) and graphs can be 
individually accessed by pressing the yellow Weight, Lengths, and Performance 
buttons. Examples of the graphs are shown as Figure 9-11 and an overview of the 
table and graphs is shown in Figure 12. 

The route for the Solid Fuels goes back to Figure 2 and when the Solid Fuels button is 
pressed, Figure 13 is seen. These four buttons invoke the different models used for 
the different solid rocket boosters. They actually use a script and rewrite the 
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equations in the cells shown in Figure 14. The same piece of spreadsheet “real 
estate” is used for each model (except the Medium Motor model) but with new 
equations, titles and words for each different model. Because the solids use 
spreadsheet models, when an input is changed in Figure 14 the result changes 
immediately and there is no “Calculate” button. The “English Units” button changes 
to “Metric Units” when pressed and changes the output (only) to metric. It reverts to 
“English Units” when pressed again. 

If the Graphs button is pressed, Figure 15 appears. This screen allows the user to 
generate parametric tables and graphs by varying any of the independent variables 
as was described for the LOX/H 2 and the LOX/RP models. The results of the 
parametric run appear after pressing the yellow button with the title of the variables 
chosen and are seen as a portion of Figure 16. The table can be printed as shown in 
Figure 17, and the graphs are accessed, individually, by pressing the Weights, 
Lengths, Mass Fraction, or Performance buttons. They can be printed when 
accessed as shown in Figures 18-21. Figure 22 shows an overview of the table and 

graphs. 

The route of the hybrid rocket booster model goes back through Figure 2 where 
pressing the Hybrid EB button brings up Figure 23. The buttons on Figure 23 work 
the same as those described for the other models. Pressing the Graphs button brings 
up Figure 24 where parametric runs can be made as described for the other models. 
After generating a parametric run a portion of Figure 25 appears. The table can be 
printed or the graphs of Figure 26 accessed and printed as shown in Figures 27-31. 

Tracing the Nuclear Thermal button, pressing it brings up Figure 32 where only the 
Solid Core button is currently active. Pressing Solid Core goes to Figure 33 where 
only the Prismatic Fuel button is active. Pressing it goes to the model for the NERVA 
derived nuclear thermal rocket (Figure 34). This model uses an external Fortran 
code and thus there are no equations under the numbers in the cells. Instead the 
user changes the inputs as desired and then presses the “Calculate” button to 
produce changes in the output. 
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JfflHiviriiml Models 


Solid Fuel Models 

The design equations are the result of a multivariate regression of a matrix of 
designs produced by Thiokol’s Solid Rocket Motor Automated Design Program 
(ADP). The results of these equations produce solid rocket motor preliminary design 
data within the ranges over which the regression was performed. There are a 
number of assumptions underlying the motor equations. These are factors which 
were held fixed during the creation of the database upon which the design equations 

are based. 


These equations assume T650 graphite epoxy filament wound cases. The web 
fraction, or proportion of the case diameter filled with propellant, was held constant 
at 0.75. Also held constant were the burn rate exponents, propellant densities, and 
the ratio of throat to port diameters for the respective propellant types. Nozzle 
submergence (defined as the nose to boss distance divided by the nose to nozzle exit 
distance) varied from 6 percent to 30 percent. The nozzle length reported in the 
design equations is from the aft case boss interface to the end of the nozzle, i.e., 
external nozzle length. A finocyl grain design was used for all propellant types. The 
finocyl design has a finned grain (typical of the Shuttle Solid Rocket Motor) for part 
of the port length and a simple cylindrical port for the remainder of the port length. 
Silica filled EPDM internal case insulation was used. The booster elements were 
divided into six categories: nose cone, external insulation, forward skirt and 
attachment, aft skirt and attachment, separation system, and miscellaneous which 
includes electronics, instrumentation, raceway, thrust vector control system, etc. 


The motors were all designed to a thrust trace similar to that of Figure 35 (which is 
that of the current space shuttle solid rocket boosters). 

The parametric design equations were formulated as follows: 

• A proprietary Thiokol design program called ADP (Automated Design 
Program) was used to generate a matrix of designs based on a set of input 
data spanning predetermined parameter ranges. 
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• The ADP determined a design for each set of the input parameters by 
using the in-house design codes for the case, insulation, nozzle and 
ballistics and the NASA-LEWIS thermochemical program. 

• Once the matrix of designs was created the Number Cruncher statistics 
package was used to do a multivariate regression on the independent and 
dependent variables. 

The generation of the parametric equations followed two steps. First, the logarithms 
of each independent variable and the dependent variables were taken. A regression 
was performed on the logarithms resulting in a factor with terms to various powers. 
This factor was used in a linear regression along with other terms to give an 
expression for the dependent variable in terms of the independent variables. 
Regression variables were based upon the physics of the problems plus input from 
Number Cruncher as to what the most meaningful variables would be. 

ASRM Propellant. The ASRM (ANB3652) type propellant utilizes aluminum as the 
primary fuel with an ammonium perchlorate (AP) oxidizer. The normal 
formulation for ASRM propellant is shown in Figure 36. The predominant exhaust 
species produced by this propellant at the nozzle exit plane are shown in Figure 37. 
This propellant is non-neutralizing with an exhaust containing approximately 21% 
hydrogen chloride. Figures 38 and 39 show sample model outputs, Figure 40 shows 
the equations used, and Figure 41 shows the script used to implement the model. 

Neutralized Mp Propellant. The DL-H435 propellant is a clean propellant utilizing 
magnesium instead of aluminum as the primary fuel in order to reduce or 
eliminate the hydrogen chloride (HC1). Reference 1 contains a full discussion of this 
propellant. Reference 1 also shows, by means of small motor test results, that this 
propellant will fully neutralize the HC1 byproduct (see Reference 1, Table IV) in the 
exhaust plume. The nominal formulation for DL-H435 magnesium clean propellant 
is shown in Figure 42. The predominant exhaust species produced by the DL-H435 
propellant at the nozzle exit plane are shown in Figure 43. Most of the neutralizing 
reaction occurs in the plume. The amount of the neutralization is a function of 
ambient conditions and mission parameters. The species at the nozzle exit plane, 
however, represents a minimum estimate of total neutralization of HC1. Figures 44 
and 45 show sample model outputs, Figure 46 shows the equations used, and Figure 
47 shows the script used to implement the model. 



Earlier in the contract a preliminary set of equations was generated using a 
different set of data and different input ranges. Although the new equations replace 
the old ones and the new model breaks the weights into different sets of components, 
the old model went to a lower thrust level. Consequently, the lower thrust results are 
also included in the parametric database as the “Medium Motor” button for the 
neutralized Mg propellent which is the one case where they are available. Figures 
48 and 49 show sample outputs and Figure 50 shows the script used to implement 

the equations. 

Nnn-Chlorine Propellant. The non-chlorine (PGN/AN/AL) propellant substitutes 
ammonium nitrate for ammonium perchlorate as the primary oxidizer in order to 
eliminate the halogen byproducts of combustion associated with the use of 
ammonium perchlorate (AP) oxidizer and uses PGN (PolyGlycidalNitrate), an 
energetic binder, to achieve performance close to the current RSRM propellant. This 
propellant is in the development stage. Thiokol has overcome the migor impediment 
to using PGN binder in large motors, but this type of clean propellant is still 
developmental. The nominal formulation for non-chlorine propellant is shown in 
Figure 51. The predominant species produced by the non-chlorine propellant at the 
nozzle exit plane are shown in Figure 52. Figures 53 and 54 show sample model 
outputs, Figure 55 shows the equations used, and Figure 56 shows the script used to 
implement the equations. 

Hybrid Ro cket Booster Model 

The hybrid model used included a T660 graphite epoxy filament wound case for the 
fuel grain and an aluminum 2219 oxidizer tank with a pressure feed system. The 
fuel is a combination of HTPB polymer and escorez. The escorez is used to increase 
the fuel’s density. The propellants are shown in Figure 57. Figure 58 shows the 
m ass fractions of the exhaust species at the nozzle exit for both a mixture ratio (O/F) 
of 1.8 and 2.8. One major advantage of a hybrid system can be seen from the figure: 
there are no chlorine or chlorine compounds in the exhaust. This alleviates many of 
the environmental concerns normally associated with solid rocket motors. The 
hybrid system can also be readily shut down and restarted. 
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The regression process described for the solid models was also used by Thiokol for 
the hybrid designs, although the variables in some cases were different. One notable 
difference was that case diameter was a dependent variable in the hybrid model, 
whereas it was an independent variable in the solid models. A special grain design 
must be used in the hybrid designs. This grain was driven by the performance 
requirements and required a specific diameter just to fit the grain geometry. Two 
new independent variables were added: the maximum oxidizer flux and the 
mixt ure ratio (oxidizer to fuel ratio). In a solid rocket motor there is no oxidizer flux 
and the oxidizer/fuel ratio is invariant, fixed by the propellant formulation. 

The hybrid model was simpler than the solid models in that all of the subcomponent 
weights and lengths were not calculated. However, the nozzle, total tank/case, 
motor, and stage lengths, as well as O 2 and fuel used weights were calculated. The 
motor mass fraction was also calculated empirically, allowing the calculation of 
total motor weight. The same stage component weight relations were used for both 
the solid and hybrid models. Figures 59 and 60 show sample model outputs, Figure 
61 shows the equations used, and Figure 62 shows the script used to implement the 

equations. 

Liquid a nd Nuclear Models 

Pprfnmnance. The LOX/H 2 , LOX/RP, and Nuclear Thermal models all use the 
same approach for performance prediction. These models employ the JANNAF 
Simplified Performance Prediction Methodology detailed in CPIA Publication 246. 
Starting from ODE (one-dimensional equilibrium) thermochemical codes, tables of 
theoretical specific impulse and C-star are prepared versus chamber pressure, 
mixture ratio, area ratio and inlet propellant enthalpy. When the system is 
modeled, a table-look-up is used to obtain the theoretical Isp and C-star values. The 
chamber temperature is used in place of mixture ratio for cases where there is no 
mixture ratio (e.g., H 2 in the nuclear model). 

Performance efficiency terms are then used to represent the various loss 
mechanisms present within the engine system. The method uses the following 

efficiency terms: 
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C-star: A measure of the combustion and mixing efficiency in the 
combustor. How much of the propellant’s chemical energy is 
actually available for heat. 

Divergence: A measure of the geometric losses associated with a finite 
nozzle having a finite turning angle. How much of the exhaust 
momentum is lost by not being turned parallel to the nozzle axis. 

Boundary Layer A measure of the drag momentum loss caused by the 
viscous bo undar y layer within the thrust chamber. 

Kinetic: A measure of kinetic losses during the expansion process. 

Rocketdyne uses a table-look-up to compute kinetic losses based on chamber 
pressure (P c ), mixture ratio, throat area, and area ratio. The tables used are the 
results of detailed ODK (one-dimensional kinetic) code runs for the particular 
propellant combination (or heated H 2 ) being studied. For divergence losses, a curve- 
fit correlation is used which relates divergence efficiency to Pc, nozzle percent 
length, thrust, and area ratio. The boundaiy layer losses are estimated by curve fits 
of the results of rigorous boundary-layer codes (such as BLIMP or TBL). The C-star 
losses are input based on the results of detailed cycle balances. 

The other effects of the thermodynamic cycle is input by using detailed cycle 
balances and then using the resulting thrust chamber mixture ratio instead of the 
engine mixture ratio. 

For the specific LOX/H 2 , LOX/RP, and Nuclear Thermal performance models used 
here, the further effect effects of the thermodynamic cycle throughout the range of 
variables was accounted for by forcing the result at a single design point through a 
known value (e.g., SSME, F-1A), then using a factor on the delivered specific 
impulse at other conditions. 

Weight. The weight for the LOX/H 2 model is based on the reference SSME design 
point. The individual component weights are then scaled with flows, thrust, P c , 
area ratio, etc. The scaling methodology is based on engineering parameters and 
physical quantities. It employes neither point designs nor curve fits. 
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The weight for the LOX/RP model is based on the reference F-1A design point. The 
individual component weights are then scaled with flows, thrust, Pc» area ratio, etc. 
The scaling methodology is based on engineering parameters and physical 
quantities. It employes neither point designs nor curve fits. 

The weights for the nuclear thermal model are based on four design points (at 25K, 
50K, 75K, and I00K) for the reactor and additional components. These points were 
then incorporated into a table lookup and interpolation routine. 

T.i^iiid Models. A model of a LOX/H 2 engine using a staged combustion cycle was 
made based on SSME experience, and scaling a set of weights based on a SSME 
baseline. Figures 63 and 64 show examples of model output. 

A model of a LOX/RP engine using a gas generator cycle was made based on F-l and 
F-iA experience, and scaling a set of weights based on F-1/F-1A weights. Figures 65 
and 66 show examples of the model output. 

Nnrlear Thermal Rocket Model. The design work done at Rocketdyne and 
Westinghouse over the past few years, including work for NASA/LeRC during the 
last year, has produced a series of detailed conceptual designs for nuclear thermal 
rockets based on the NERVA experience base. Those design results were included in 
a table and combined with performance data to produce a model for a NERVA 
derived nuclear thermal rocket. The model is based on using a prismatic fuel form. 
Because this is a concept derived from a specific reactor design and using one fuel 
type (graphite matrix with UC 2 beads with ZrC protective fuel element coating), 
temperature is fixed. Only thrust, chamber pressure, and nozzle area ratio are 
variable. Also the thrust range is limited from 25,000 to 100,000 lbf. Figure 67 shows 
a sample output of the model. 

flhaiuring the Wor ksheet Script 

The worksheet script is a collection of functions which are called by other scripts. It 
is essentially a library. To make changes to the worksheet script, even temporarily, 
requires that the file library” be modified. The procedure is: 
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1. Select any spreadsheet cell 

2. Go to the “Script” item in the menu bar and select “Unload Script 

and “Library” ...... 

If “Unload Script” is grayed in the menu bar then skip this step 

3. Go to the “Script” item in the menu bar and select “Open Script...” 

4. Use the resulting dialog box to find and open the file “Library” 

6. Make the desired changes 

6. Go to the “File” item in the menu bar and select “Save 

7. Go to the “File” item in the menu bar and select “Close” 

8 . Go to the “Script” item in the menu bar and select “Worksheet 

Script” 

9. Highlight the following four lines with the cursor: 

On Activate 

Attach Script “Library” 

Get Script “Library” 

End Activate 

10. Go to the “Edit” item in the menu bar and select “Copy” 

11. Go to the “Edit” item in the menu bar and select “Select All” 

12. Press “Delete” key 

13. Go to the “Edit” item in the menu bar and select “Paste 

14. Go to the “File” item in the menu bar and select “Close” 

15. Press any active button which forces the program to attach the file 
“Library” and make it the current “Worksheet Script”. 
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Propulsion System Database 

The propulsion system database was developed using the Macintosh database 
FileMaker Pro, version 2.0vl (published by Claris). It was developed on a Macintosh 
II fx running system 7 with the tuneup kit and using an Apple 13 inch color 

monitor. 

The propulsion system database consists of two files: “Prop System DB and Prop 
System DB-Pictures”. They can be placed anywhere. The names of the two files must 
not be changed since the first is used as a look-up file by the second, and the second 
is referenced by name in scripts in the first. “Prop System DB” is the main file which 
contains all the data except two picture fields for each record. The two picture fields 
were separated because they are often scanned images using significant amounts of 
memory, and also by having two files, even when many more propulsion systems 
are included in the database, the FileMaker limit of 32 Meg per individual file 
should be avoidable. 

The engine systems currently included in the propulsion system database are: 

Space Transportation Main Engine (STME) 

F-l 

F-1A 

J-2 

J-2S 

SSME 

RD-170 

Integrated Modular Engine (IME) 

Space Shuttle Redesigned Solid Rocket Motor (RSRM) 

NERVA Derived NTR 

To run the propulsion system database double-click on the file “Prop System DB . 
The opening screen of Figure 68 will appear. Press Continue and Figure 69 will 
appear. Pressing on any button will find all propulsion systems of the type 
represented by the button. For example, pressing “Cryogenic” will find only the 
cryogenic engines, pressing “Chemical” will find the cryogenics plus the solids, 
plus the hybrids, etc. Pressing “Propulsion Systems” will find all the records in the 
database. If the user presses a button for which there are no records of that type, a 
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dialog box will appear and if Continue or Cancel is pressed, all records will be found 
instead of the null set of zero records expected. This is a quirk of FileMaker Pro. 


Code Struc ture and Output 

The code is broken into five general classes of propulsion systems based on needing 
different reports for each kind of propulsion system: Liquids, Solids, Hybrids, 
Nuclear, and Exotic. The layouts for Liquids must be different from those for Solids 
since many parameters of one have no meaning for the other (e.g., mixture ratio, 
grain design). This structure is transparent to the user if the buttons supplied on 
every screen for navigation are used. In other words, when a liquid engine is 
selected and the Data Entry button is pressed, the user will go to the liquid data entry 
screen, not the ones available for solids, hybrids, etc. (which are different). 
Nonetheless, the actual internal structure is fairly complex and extensive because of 
the need for different report and entry formats. There are 160 layouts and 71 scripts 

used. 

The result of pressing “Propulsion Systems" in the Main Menu (Figure 69) is shown 
in Figure 70 which is also the list of all currently available propulsion systems. An 
example of using the code is to select one of the propulsion systems from the figure 
(i.e., click on the engine name) and then press one of the five buttons across the top 
of the screen. The Print button simply prints the page (and works the same on all 
other layouts where it is present), the More Data button shows two additional lines of 
information for each propulsion system (thrust, specific impulse, weight, length, 
width, etc.) and is intended as a short technical summary of the systems in the 
database. The button with the “org chart” icon returns to the Main Menu (Figure 
69). The Data Entry button goes to a set of layouts specifically designed to make data 
entry easy by gathering all the fields of data for one system in one place and 
eliminating any that are calculated from other data. 

The Reports button goes to a screen like Figure 71. This screen shows the individual 
reports (layouts) available for each propulsion system. The reports are arranged into 
two sets - each containing the same information, but with some differences in 
arrangement - with one set structured for portrait mode presentation and called 
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“Reports”, and the other structured for landscape mode presentation and called 
“Briefing Charts”. 

Typical use of the code would be to go to the Main Menu screen (Figure 69), press 
“Propulsion Systems”, choose an engine from the resulting Summary screen 
(Figure 70), press the Reports button and then use Figure 71 to look at the data (and 
print any of interest) by pressing individual reports. For example, pressing Engine 
Performance 1” brings up the layout in Figure 72 (for a STME as an example). From 
this (or any other) report the user can print the report, return to the Reports screen, 

or return to the Main Menu. 

After examining the various reports, the user might return to the Summary screen 
(Figure 70) and select another propulsion system and then look at its reports, and so 

on. 


Figures 73-82 present the output for each of the currently available systems. 

Figure 83 shows the field definitions for all fields in the file “Prop System DB”. 
Figure 84 shows the field definitions for all fields in “Prop System DB-Pictures”. Note 
that all of the fields in “Prop System DB-Pictures” except “Engine Name” and two 
picture fields are look-up fields using the data from “Prop System DB” through the 
field “Engine Name”. It is important to remember to force a relook-up in “Prop 
System DB-Pictures” if changes are made to the file “Prop System DB” since relook¬ 
ups are not automatic in FileMaker Pro. 
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Figure 1. Parametric Database Opening Screen 





Figure 2. Main Navigation Screen 



















































































































Figure 3. Current Cryogenic Models 
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Figure 4. Current Hydrocarbon Models 
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Figure 5. Input/Output Table for Liquid Models 












































Figure 6. Parametric Data Generation Screen — Liquid Engines 
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Figure 7. Parametric Results Table - Liquid Engines 
























































































































^soo 
® n ift p 
CS CO I s * 


o o o o o o 
N«OQ ^ S 


05 7 


(DNWOlOONOifliftNH 

in^tiriin^in^incsiriind 

^(0005^000000(0000 

in —■ in p** cs -• co t- cs 


^ to ^ o> o <o 

6 o ci oo o n w 

^ 00 *-« 00 05 ^ <0 


K)^W(DCON^OOCO^ 

NOOCOrtrtoN^gJO^ 

♦ " w J ^ (0 N o oo 


CS 00 <0 w 1 

N h ifl CO S 

^ ifl n ^ 


5 00 O 0) CO CO 

JjJ 05 05 05 05 05 

o o o o 6 


^NOO 
h* O K* 
GO CS[ o £ 

oi <0 N 


o o o o o o 

n in o - 52 £ 


~ 01 

o> 7 


^NQOOOOOO 

n cd d S'? 


rft^QOOOOOO 
^ 0 s * p «*/ < aJ a ^ in n 

®f*ot: u, § = 2 c i 

cs co <0 57 


ud oo 

in 

to ^ cs 

CO 

O 05 

00 

05 05 00 


r-t (0 


pv cs 





CO* 

o a o to in o s 


m $ 

in 

cd n oo 0) 

05 

o o 

00 

05 CS 00 *"i 


— 


00 cs 

to 




d 


cs r- cs w o 7 in 

d ^ oi d d © to 

a CO h ® O ^ (O 


cs ^ CS OJ O 0) CS 

O pi ci oi cd 00 N 

^ 00 ^ 00 0) •-» (O 


CO PI CO (0 o uo O 

o cd cs d to d oo 

*-t 00 in ® ® (0 


cs ^ in in co 

in oo oo ^ a q 

o ei id d t « 

cs - (O s 

S' lO CO S' 


(O S 00 $ 

to oo cs o 


—• on 

« 6 
CD £ 


© PI 00 o . w 

h h co in s 

s m co s 


o« o oo co sr cs 

a in a « o s 

; s © cs © co 

IT oo a © oo co 

® © © © © © 

o o o o d 

on O to co s © 

a m co oo o m 

^ 0 > cs OJ to 

£ 00 05 05 00 CO 

^ © © © © © 

o o d o o 


msHcncDSNOsnscD 

NQOOOlOX 05 in 05 oo O CO 

“«gs^-”$sss?si 
S S 8 3 N S ® » » ^ ® 

o o o o o 


SNOO 
* h- O 
oo cs in £ 

cs cd d 


o o o o o o 
fsi in o -i 52 £ 


® = S2 

05 7 


• tJ - S'NpOOOOOO 

SNOf^iAQAlDN 

doocso ^^ g^jcs 

At «A ' 4 ' Ml 


cs co m 
«—* 
in 


N O O 

r* o ^ 
CS in £ 

co * 


o o o o o o 
p si in o if2 m 


- * cs 
00 ^ 
05 7 


r^ooooooo 

^§^ind-i! 5 f 5 
N .9 N 00 £ • 

co * Sr 


C 0 ^ f ‘ S , 05 ^ O '-* OISOC 0 CD 



cscooooooioo5in*tcococo 
©ao< 000 ©Oaoao©'«©N 
O CO CD 05 CS P"- ^ cs 


to 7 co co O 7 oo 

o s pi o co o cb 

-N 00 ^ © © PI CO 


s a s pi o n q 

o s ci h to o oi 

W+ CO *+ 05 05 CS CO 


u> oo s; n o n in 

o in cs d -* o 

n oo ^ a a pi s 


in oo in pi o o s 

O CD cs cs to cs 

h b ^ a a pi n 


n ^ s m h m 

B ® S N CO q 

cs o -s* °°. co 

^ -h n m t> 

s w « s 


c- in cs co co 

ao aq eq co in q 

co cs o in co 

^ ^ s in n 

s in co s 


CS CO CS 05 CO 

oo oo pi s n Q 

iri cs oi in co 

h h b m co 

s* in co S' 


s s in o in s 

i > b n q a o 

s pi <b « 9 n 

h ^ b uo oo 

s m co s 


05 o 
to in 

o S 

)r qo 

2 05 


cs o 
to in 

‘ -S' 

r © 

2 05 


CS O 

s m 

* 

7 oo 

nf ® 

o 

■S' o 
t* in 

d S 

1 s 


05 CO 
05 00 
05 CS 
05 05 
05 05 


■S' cs 
O P" 
05 CO 
00 CO 
05 05 


O O O O 


05 CO 
05 00 
05 CS 
O) 05 
05 05 


<<* CS 

o r>» 

05 CO 
00 CO 
05 05 


O O O O 


05 CO 
05 00 
05 CS 
05 0> 
05 05 


CS 
O P- 
05 CO 
00 CO 
05 05 


O O O O 


05 CO 
05 00 
05 CS 
05 05 
05 05 

O O 


"S' cs 
o 

05 tO 
00 <Q 
O) 05 

o o 


II II M H 


M II It M M M II H it N tt 


ii u it ii ii n it 


c . 

3 

“ll-i * 

ilillbl 


V 

£ Big 

"'fll 


(0 «] (0 

Sou 


3 e uu 

H U w -m rj 

O 3 O w — 

£ n ae a M 


tic 

Sees 
a g g s « 
Sis 


y « « z 

« JJ1 “ * 

-1 N r +■* 


o s 

2 2 ,u 

Q m v. 

&Sfl 

££o 


£ a 


cn a 

. 3 S - 5 . a s ' 

a f ^ o ' 2 ^ S 

o 2 fc - Q 5 ? -> 


w ^ V 55 C 
^ w Z X t> v 

11 6 £ u I w 


= 1 

0 ) 4_> 

2 S 

S I 

M > 


i f . 

. 6 

« S 

^ Q 

> O 


Us te 

u w 

5^8 


V r > ' sp -< 

5 o : w g w 

i ^ & 3 & te a 

I w g g w €b 

^ o S 5 ^ j c 

j O w 2 Q co w 









































































Figure 9. Printed Version of Weight Chart - Liquid Models 
































































































































































































































































































































































































































Figure 10. Printed Version of Lengths Chart - Liquid Models 
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Figure 11. Printed Version of Performance Chart - Liquid Models 







































































Figure 12. Parametric Data Available - Liquid Engines 
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Figure 13. Solid Fuel Models Available 
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Figure 14. Solid Motor Model 





























































































































































































































































































































Figure 15. Parametric Generation Screen - Solid Boosters 















































































































































































































































j ^ gjaap gM | S § |3 


1,009 1400 


&§5: J#V ^ ^ x ;’■•••••••»?■' : 






kv&M 


pi 

9400400 

SIMm* 

If!#: 14041 


rt.SOO.OQO *400.000 
»«•• »** 




c ‘ : ': *>. •■ 


D OOOO* Hi a »j| s ids&J&M* * ,; ' i>3 h f : .i: *^®**>::s>*: 

.. v.^-.v.\%>v • » : .I--,:■»:«■>>• •>»?»:-:>>»>»»»>y>:: > : >>::■; :-:y:•:.-< 

' Rook Woigbtf flm ■ 1400406 




>.<: 






•>»>:: x;:.'WfV>wj 


10.17441 


inu 




mm* 


74014 ffl « 0 JB 4 M 

: :!f:vOa0.i : "iP ; t^S04|1J*M 

ijoitoo - iii ^ t *! IBSiJwo 


104004:* §||S?4704 

:: ■•• >•;: :'■#: .i>>Jf:*<:>>•*•*' v -y?'\v 

3*491.0 piMM.*. 

0004 ; : : : :; 7S0.0 

:.O2SJ70 1404,43* 

i?4ai s.74aj 


».**?&* 
■.* #!«&*>:*: 


144*0.7 


I I I ♦ O. ^ 


W H Q ta OW 


, ■ 'W/ \^ 9 r A ^ v ° wv * • 

jU‘^dlli£JUUL2t 


k V'N'- 

Uir^^JULLS 


f* *; Vit f Vi 


P.sViira 










imuraim 


*A!i! 






&&*>&&&>! 


aSaatliaSss 


Inwhtton 'O4)0S45^Pf:'4JO4^:*:-;i; : ;: *4*00; 

Cue ' :/ IM0»4 -' IM*M, M41*4 

Igniter > ;:,:-:^U ; M «•>-".101^ »*4 - 4*U 

Propellant \ \ « • 4)0400 01040* *AMt \b 

Nom Cooe V ' ' ‘.' . 1,74*4 0.7434 :;: ! < *.74*4 

EikSSfiy ^ • • ^§s 

Pwd Short : ; 4^0 T 

AftSlrtrt S-; r|;u;a S@; m 14.0*04 U40O4 : 14.0004 

Seporatm SyOM : » : .40S4 ■ f : . SS®*° 

^ Miftft : ■: » r^: 1074 ji ^' :: ;"' 4104 ^^ 0004 

SRM : ;,/ 400.441 ■>.:; 047.404 . 000.000 

stage. V : ;■>: ao.W ^ : ^'*047S '!' " ' 00.770 

Total (8RB) : " :i : ft ' •m •480.190 ' " 070.700 004.70T 


CjUM|- : -'iv- V :•'/'• . 47M V ” T0»e4 ■■■ i %< -.; : - IMWl# 

Nook ■■ « *’ 004^: •;-. 1*04 1404 

UDCme W y ^ W r '^ ^*4'||Ip!' 44 -- : ■>' ' : ' M 

Total" *^704.0 ~"^ : ■=^ ! 1.010.0 1401.4 




RbOrio/eee . • *400 aaoa a»o 


0.74*4 

liirooj! 


0.74*4 ^ -: 04440 


0.74*4 


14400*7 

/.;;■. : 0004 1.1707 M104 r " 14474 V/f 14704 .; *4004 

1.074.1 tl 1400.04* 1.400407 1.7)1404 14*4.10* ^^1*0440 

44470 >^34.700^'• ! ' *04*0 • -^%»407 OO tOl*04*0 : 
1.000.000 1411.400 • ^1.M4^^^'l^m.031 *1.000.0*0~ ^*400.000 


000.000 

*0.770 

004.707 


1.074.1)1 


1.000. SOS 


1449.4 1400.7 

i.170.7 14104 

140044* 11.4004*7 


TioilSlllioiS^r 

40*4 fMtioOJI f 
OS04' 5 i:lf14400.7 ■; - : 
410.7! v «*,lS*4 ■'• 




'04004; 








( Athrootkirgkl ^ • 

(R tbronkg. * 

Noesle Exit DMu lo * 


fcfoao fVoctkMi 
( rargkt . Ibf 
(Pevghroe. Ibf 
(Iop)ole mc4bt/1bm 
(UpKec. teJbt/lbm 
(lmpuleeW, lbf-eec 
Ump«UM)voe. lW-eec 
Vfckol.lt/oce 


0*04 x 1417.7 
.104 :£■■ ■ *04 
004 < •••-•. 1004 

: 0407':=> >• ^ 04**: : ' 


1.740.0 

*»4 

101.7 


>1.1404 14004 14074 14044 , . , * 4 * 1 . 1 - 04004 

: -i-.-IOiirr-^;- 1014 ' INO -y ': : ■■ 0414 

74 :'; .-. ■:<x\ *4 '' : ''“' 104 ■ . v : ; ‘ "' : ::! 1*4 T '' 1*4 1*4 

140*4 1.7304 1.0744 *407. 0 *.430.0 :: ^---*4QT4 


^ 0430 , . 04 * 0 w .^.. 0400 , 04 W ,■■ 9Mm : «*— 

sK-^iuj;?; tMM ■ Mill ’ *Mi* «a»u 






04014 f - 3 
00.) ; :v - : 
l ; J 1704 


04S14 ^44714 


m . ' .1*4 /.’ : ' ***' *04 *04 : . 304 *14 : *0.1 .■ - • 0*4 : - m* 

i-myyy- : <- : )0O4 . k*)»7 v^,^' 1004 MM ; " . 1004 •- : .•: 1704■ : ::•>;• 1004 1004 

:y\ y m .. ■■ gjof ; - : i: 04**\ : :: ”' ■ 0.00* - ■ 0407 - : 044|::r;044*v:>^vg^'04t*<-1^1^.0440;:;. 0440 

014407 1471401 1430.000; • 3400401 '*.740.74li H 0401.100 ! : ' *4*041* 4410.100. ;:■ 447*4*0 

• 1400400 1400.000 *.000400 *400400 *.000400 *400.000 4400400 .4400.000 *40040* 

■■ * ' 100.07 30040 ! : "mt* : 30040" " Oto.7* : V. *004* ^ ? *70.1* x4 ;- *7047 *7041 

'. 101.4*1440 1*14*4.410 *0*4(040* 300,704.0*4 3044004*7 000.330.100 400.100470 4004074*7 *074714*0 

» 111400.000 10t. W Q. Q 00 7t>,aett.ono >77.000400 0**40040* Q*0.*00.000 444400400 400400.000 **0.000400 


Figure 16* Parametric Results Table — Solid Boosters 
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Figure 17. Printed Output of Parametric Results - Solid Motors 





























































































































































Figure 18. Printed Version of Weights Chart - Solid Rocket Boosters 







































































































































































Figure 19. Printed Version of Lengths Chart - Solid Rocket Boosters 













































































































































































































































































































































































































































































Figure 20. Printed Version of Mass Fraction Chart - Solid Rocket Boosters 
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Figure 21. Printed Version of Performance Chart - Solid Rocket Boosters 





Figure 22. Parametric Results Available - Solid Rocket Boosters 
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Figure 23. Input/Output Table for Hybrid Rocket Booster Model 

























































































































































































































Figure 24. Parametric Data Generation Screen - Hybrid Motors 
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Figure 25. Parametric Results Table - Hybrid Rocket Boosters 








































































Figure 26. Parametric Data Available - Hybrid Rocket Boosters 
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Figure 27. Printed Version of Parametric Results Chart - Hybrid Boosters 







































































































































































































































Figure 28. Printed Version of Weights Chart - Hybrid Rocket Motors 



























































































































































































































































































































































































































































































































































































Hybrid Propellants - Large Motors 



Figure 29. Printed Version of Lengths Chart - Hybrid Rocket Motors 
















































































































































































































































































































































































































































































































































































































































































































































































30. Printed Version of Mass Fraction Chart - Hybrid Rocket Motors 






































































Figure 31. Printed Version of Performance Chart - Hybrid Rocket Motors 






































































































































































































































































































































Figure 32. Reactor Choices 















































Figure 33. Fuel Form Choices 


































Figure 34. Nuclear Thermal Rocket Model 
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(lueojed) jsrum uinnoeA 


TA3-0420Fig 


Ingredient 

Weight Percent 

Al 

19.0 

AP 

68.86 

HP* 

12.0 

Fe203** 

0.14 


* varied for mechanical property control 
** varied for burn rate control 


Figure 36. Nominal Composition of ASRM Propellant 


Exhaust Product 

Mass Fraction 

CO (g) 

0.2081 

C02 (g) 

0.02786 

CL(g) 

0.00285 

HCI (g) 

0.2093 

FeCI2 (g) 

0.0021 

H(g) 

0.00019 

H2 (g) 

0.01972 

H20 (g) 

0.08455 

AI203 (s & 1) 

0.3587 

N2(g) 

0.08582 


Figure 37. Theoretical Exhaust Products at 1,000 psi 
Chamber Pressure Expanded to 14.7 psi 
ASRM Propellant 
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Figure38. Printed Output- "Report" - English Units 
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Figure 39 . Printed Output - "Briefing" - Metric Units 
























Figure 40. Equations for ASRM 

Propellant Model 



Equations for Stage Components 


Yfirinhletobe 
flfllmlflted Eguatkgl 


Nose Cone Weight, lbm 

W Nose Cone - 3395 - 2098N, /d - 0.4705(D c /2) 2 + 2.533X10" 5 {(D c /2)J(DJ2) 2 + {N lJd Dj 2 } 
External Insulation Weight, lbm 

W^ns^ion - 87 + 0.72434 + 0.107KA/2) 2 

Fwd Skirt and Attach Weight, lbm 

(2.095 + 0.052760,-0.0000846D, 2 ) 

Wf wd Skirt “ e 

Aft Skirt and Attach Weight, lbm 

„(2.89 + 0.06343D* -0.00012Dt) 

WAftSkirt * e 

Separation System Weight, lbm 


W« 


Separation 


0.0011208 W, 


srm 


Misc Weight, lbm 

W misc - -1039 - 0.00204+2.854L c „ e * nozzle +0.07885(D c /2) 2 


TA3-0321 



Large Motor Equations for ASRM Propellant 



Bumin^at^^ToOOpsia, ips Rbo - 4.633 (D c /Tb) 0919 *Meop 
Propellant Weight, Ibm w — 0.004530F V T] ) wlA Ef s 


Vacuum specific Impulse, j S p v - 
lbf-sec/Ibm p 


Average 


Nozzle Throat Area, -14.5 + m.SW 0 p ” 02 Meop^” s 'T?*’' t + 1 039 E - 5F, -t-0.3131 ^ 


Average Nozzle Throat 
Radius, in 


R,= Jir 


Diameter of Nozzle @ Exit, in £> n= 2 J(R, - 0.005Tb) 2 Ei 

Average Sea Level Thrust, lbf F*/ = F v — 3.6757 

Sea Level Specific Impulse, ^ = l JEzh 

lbf-sec/lbm _ Fv _ 

Boss-Boss Case Length, in L c = 26.26»?-*“# L »V° 1366 


Nozzle Length (Aft Case Boss J r <n = 1.096/1*° 5665 E° 3385 
to Nozzle Exit), in_^__ 

Case length to Diameter Ratio, UD C = ^ 

dim _ 

Booster Total Length, in L iot ai = L c + L n + NVdPc 


Igniter Weight, lbm 


W ign = 19.1 + 164.3 M Meop - 0.071 S2A, 

r=~ ___--+ 0.6699 A n* r-G 


Nozzle Weight, lbm Wn = 400.6 + 0.02310^ (1 + F,)L* + 0.1004/C R*- 4374 ^* 1699 

Internal Case Insulation, lbm ^ =-18.3+ 0.2467Pf5 7199 rJ 3134 L c ° 173 — 0.072 1L4 i 


Empty Case Weight, lbm 


0.7691 r +01140 ni.fcs* 


r = -183.1 + 4J95e-4F,+6.l42e-6L? nl ’Meop olm F, D t 


Total Rocket Motor Weight fVjrm = W p + W n + W, + W c + W ipl 
lbm . 


Total Stage Component 
Weight, lbm 


W slg = + WInsulation + Wp^dShr, + ^AftShr, + Wstperuo* + ^Misc 


Total Booster weight, lbm W^ - W^ + ft ug 

Bootner Idea. Velocity, ft/sec ~ = /,p v ln 32.18 

^ w 

Booster Mass Fraction, dim Mfgrb = 


Total Impulse Sea Level, /,/ = F^Tb 

Ibf-sec 


Toul Impulse vacuum, 
lbm-sec 


L = F v Tb 


RMSE - 0.002 
(0.334-0.806) 

RMSE = 2,809 
(198k-3.01M) 

Analytical 

Equation 

RMSE = 10.7 
(315-6830) 

Analytical 
Equation_ 

Analytical 

Equation 

Analytical 

Equation 

Analytical 

Equation 

RMSE = 5.3 
(443-1,640) 

RMSE = 3.6 
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Analytical 

Equation 
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Equation 
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(45M-728M) 
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(51M-865M) 

1/14/93 





































































































































































































Figure 41. Script for ASRM Propellant 

Model 


TA3—0328 
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{(Favg)vac) 

Put "=C128*L126" Into G132 
Put "N/A" Into HI32 
Put"" Into 1132 

Put"" Into 1133 

{L/D case} „, „ . 

Put "=G133/(C130*L122)" Into G134 

Put "=If(G134>5.6,""Note 1"",""N/A"")" Into H134 

Put"" Into 1134 

£ ?? Z ?i le Li«*fr i97*n 33851»aG129/(L122*L122)) A 0.5665))*L122" Into G135 

p^t *Ilf(G?35<^2*L12^/V^ote ^"?inG 135>373'L122.'"Note 4".3.6*L122))"IntoH135 

Put"" Into 1135 

Put^OI’^R^UG 130/L122*0.005"C 1 29 ) A 2 )*C 127))*L 122" Into G136 
Put "N/A" Into HI36 
Put ""Into 1136 

pS t ^G133+G135+(C132*C130)*L122" Into G137 
Put "N/A" Into HI37 
Put "" Into 1137 

Put"" Into 1138 
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Put ""Into 1139 

S!, < ^lTjfo U 2467-((ai38/L123|-0.7199nCl29-0^134)-((0133/L122)-(-0.1737)) 

^ ■ «IflO 140<"l WltV’M 23,"■^Not^S’MflGMO^lSSCM^?. 123. "Note 4".105*L123)1" Into HI40 

Put ""Into 1140 
{W case} 

Put"" Into 1141 

lXtM l l t 9 r} l + (164 3*(G138/(C129*L123)) A 1.273)*(C126 A (-1.076))*(C 130*(-0.5851)) 

"3S 9 2S 

Put ""Into 1142 
(W nose cone} 

^ ""ifa.533SS*(«C 3 130/2)*SqRS( l (Cl30/ 2) A 2)+((C 132*C 130) A 2))) A 2))*L 123" Into G143 

Put "N/A" Into HI43 
Put"" Into 1143 

{ ^t C "^(8?+o!724 1 ^ t C > 130+0.1071*((C130/2) A 2))*L123" Into G144 
Put "N/A" Into HI44 
Put ** Into 1144 

( ^t f ”.‘(E^(2*9 a 5 l ?0 C 05276-C130.0.0000846-C130-C130))-L123-into 0145 
Put "N/A" Into HI45 
Put"" Into 1145 

Put^(ElS*89^ C 06343*C130-0.00012*C130'C130)rL123" Into G146 

Put "N/A" Into HI46 
Put"" Into 1146 

{W separation system} 

Put "=0.0011208*G 149" Into G147 
Put "N/A" Into HI47 
Put "* Into 1147 

Put™»f- e i039-0.00204*(0149/L123)+2.854*((0133+G135)/L122)+0.07885 , ((C130/2) A 2)) , L123" Into G14 

Put "N/A* Into HI48 
Put"" Into 1148 


{W SRM} 
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Put "=Sum(G138..G142)" Into G149 
Put"" Into HI49 
Put"" Into 1149 


(W stage} 

Put "*Sum(G143..G148) Into 0150 s»Mi jnta HI50 

Put"=If(G150<4200*L123.""Note3"MflG150>193000'L123. Note 4 . )) intomou 

Put"" Into 1150 


{WSRB} 

Put "=G149+G150" Into G151 
Put *" Into H151 
Put ""Into 1151 

Put*"=K32. 18 *(G 128 /L125)*Ln((C131+(0151/L123))/lCl31+(0151/L123HO 138/Ll23))))*L 124" Into G15 

Put "N/A" Into HI52 
Put"" Into 1152 


{Mass Fraction} 

Put "=*G138/G151" Into G153 
Put "N/A" Into HI53 
Put"" Into 1153 


{(Impulse)sl} 

Put "=G131*C129" Into G154 

Put "=Ifl[G154<45000000*L 126.""Note 

Put"" Into 1154 


3"",If{G 154>728000000*L 126,""Note 4"".""""))" Into H154 


{(Impulse)vac} , _ _ 

Put "*C128*C129*L126" Into G155 
Put *=IfIG 155<51000000*L126,""Note 3"" 
Put"" Into 1155 


,IflG 155 > 865000000 *L 126 .""Note 4"".""""))" Into H155 


{Load Notes} 

Put "Note 1:" Into A135 

Put "Cases with L/D greater than 5.6" Into C135 
Put "are difficult to wind w/o Joints." Into Cl36 

Put "Note 2:" Into A138 
Put "MG propellant bum rates" Into Cl38 
Put "(Rbo) are tailorable between" Into Cl39 
Put "0.334 and 0.806 lps." Into C140 

Put "Note 3:" Into A142 

Put "Data Is being extrapolated" Into Cl42 

Put "below range of regression." Into Cl43 

Put "Note 4:" Into A145 

Put "Data is being extrapolated" Into Cl45 

Put "above range of regression." Into C146 


Automatic Recalc 
Invalidate Off 



Ingredient 

Weight Percent 

R-45M (1% A02246)* 

13.83 

IPDI* 

0.86 

HX-752 

0.30 

TPB 

0.01 

Mg 

22.0 

AP** 

62.80 

Fe203** 

0.20 


* varied for mechanical property control 
** varied for burn rate control 


Figure 42. Nominal Composition of Magnesium Clean Propellant 


Exhaust Product 

Mass Fraction 

CO (g) 

0.2860 

C02 (g) 

0.0162 

CL (g) 

0.0002 

HCI (g) 

0.1505 

FeCI2 (g) 

0.0032 

MgCI2 (g) 

0.052 

H (g) 

Insignificant 

H2(g) 

0.0289 

H20 (g) 

0.0415 

MgO (s) 

0.3412 

N2(g) 

0.0766 

Other 

0.0005 


Figure 43. Theoretical Exhaust Products at 1,000 psi 
Chamber Pressure Expanded to 14.7 psi 
Magnesium Clean Propellant 
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Large Motors 
1 14 Janu ary 1993 
llnffcp 
Meop. psia 
Initial Area Ratio. £1 
(Favg)vac, lbf 
Burn Time, Tb, seconds 
Dcase, in 
Push Weight, lbm 
Nose Cone L/D 


Neutr alizin g Mg (DL-H435) Propellant 


1.000 

7.0 

2.590.000 

111 

146 

1 , 000.000 

1.30 


&pr£j 

200 To 2000 
5 To 19 
320 K To 8.9 M 
60 To 178 
80 To 255 


Note 1: Cases with L/D greater than 5.6 
are difficult to wind w/o Joints. 

Note 2; MO propellant bum rates 

(Rbo) are tallorable between 
0.34 and 0.81 lps. 

Note 3: Data Is being extrapolated 
below range of regression. 

Note 4: Data Is being extrapolated 
above range of regression. 


Rbo. in/sec 
(Isp)sl. sec-lbf/lbm 
(Ispjvac. sec-lbf/lbm 
(A throatlavg. ln A 2 
(R throatlavg. in 
(Pavglsl. lbf 
(Favgjvac. lbf 
L case. In 
L/D case 
L nozzle. In 
Nozzle Exit O.D.. In 
Total Length. In 
W propellant, lbm 
W nozzle, lbm 
W insulation. lbm 
W case, lbm 
W igniter, lbm 
W nose cone, lbm 
W ext Insul. lbm 
W fwd skirt, lbm 
W aft skirt, lbm 
W separation, lbm 
W mlsc, lbm 
W SRM. lbm 
W stage. lbm 
W SRB, lbm 
V ideal, ft/sec 
Mass Fraction 
(lmpulse)sl. lbf-sec 
(Impulse)vac. lbf-sec 


0.534 
243.05 
266.17 
2.278.9 
26.9 
2.365.069 
2.590.000 

1.337.3 
9.16 

169.7 

139.6 

1.696.8 
1,080.110 

12.648.0 

7.128.9 
28.823.5 

630.7 

3.742.3 

763.5 

2.965.0 

14.659.7 

1,265.8 

1,920.0 

1.129E+06 

2.532E+04 

1.155E+06 

5.959E+03 

9.354E-01 

2.625E+08 

2.875E+08 


N/A 


Figure 44 


Printed Output - "Report" - English Units 













8 « 

8 z 
o 

<o co 
in m 

*i co 
co 

CO 


i 8 || 

z 2 z z 

N 


U 

2 o 
Z 


< $ 
z z 


_ * lf> ^ 

* * * n 

c ® CM 

o ® 5 2 

z g 5 S 


0) ^ < < < < < 

® ^ ^ S ^ i ^ 

c* z z z z z z 


< < 
z z 


^rt^ooococociinoiooioinq^c^^cjq^ggggggg 

g8 8 32#*38S2586S*2533SS8S883S8 

®. v SS« * 5 * « 2 - - • 2 2 S S « £ £ 

M *• i » t * a 1 * 

X m ^ in ^ ^ 


h r*» 

q V 

c* — 


cs 

a 

% z w . W . 

Z A «o ttfi 

*S 8 . §f*«8o 

2 & & ®*i I 89 


S 

u 

i!» i 

§2i!'2s 


S' too t*> A ^ 

** 2P .* tyD . 
tfl J ** . ^ C _ 

* 8 •= t jS M»g»M 


o 

§ ? 

? z 

u e Z . 

* I -♦ 8 


•■I ^ __ 


s 

§ ® ao w) 

® ® ^ £ 

« -• ~ e* 

& £ £ £ fi 

8 10^00 
o <0 ® 

" i 


o 

o § 

§ S 6 

- P* 0) 
•”• m 


o 

o 

a °. o 
,-. ** o 9 

--8- 


0) 

in w 

s | 

5 t 

V ^ 

-o* *" 

OS «* 

M 

§2 

-*•# 

5 3 

? | 
01 s 

So 

3 s 


a S 

a £ 

2 jj 

E u 

3 2 <n 
^ « a 

fl a ^ 

! I ® 

S3 +* O 

|S1 

O | n 
S £ o 


II 

i| 
« & 
J3 £ 

s i 

° 

s & 

JS g 
« u 

st 

<0 i) 

Q 2 


"5 5 

3 I 

a s 

a a 

a c 

s; 

u o 
S & 

s s 

cn ** 
« > 
« 5 

Q a 


el 

o W 
X ^ 

I 

I s 

35 


5 S • 5 ^ a 1 s 

2 h o B c « c 

»< 1 p * 8 
2 3 g I a £ £ Q 


E g 
fi q H 


CO u O 

eu< | 

82 5 


£ j q 

DC 4) S 
o c «o 
^ M A 





























Figure 46. Equations for Mg Clean 

Propellant Model 
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Equations for Stage Components 


Variable to be 
Calculated Effllfitittl 

Nose Cone Weight, lbm 

W Noit Con* - 3395 - 2098tf w -0.4705(A/2) 2 + 2.533xl0' 5 {(A/2)/(A W 


External Insulation Weight, lbm 

Wtoa^oHon - 87 + 0.7243A + 0.1071(A/2) : 

Fwd Skirt and Attach Weight, lbm 

(2.095 ♦ 0.05276Dc -0.00008460c 2 ) 

WpwJSkirt " * 

Aft Skirt and Attach Weight, lbm 

nr J2.89 + O.O63430C-0.000120c 2 ) 

W A ftSklrt - * 

Separation System Weight, lbm 

Wsepamtlon m 0.0011208 


Misc Weight, lbm 

w ml , e - -1039 - 0.00204W jm , +2.854A«, * +0.07885(A/2) 2 


TA3—0321 



Large Motor Equations for Magnesium Based Propellant 



Burning Rate @ 1000 psia, ips Rbo = 4.957(D c /7a) Meop 
Propellant Weight, lbm W p = 0.00502 ^^t^Ef^Ueop~^ xm 

Vacuum specific Impulse, j S p v - Hi. 

Ibf-sec/lbm __ ' _______ 

Average Nozzle Throa: Area, J, = -15.2 + XSlA^Meop^T?™ + 1-027 E - 5F. + 0.3134 T h 


Average Nozzle Throat 
Radius, in 


R,= j T 


Diameter of Nozzle @ Exit, in ^ _ 2 J(R t -0.Q05T b ) l Ei 
Average Sea Level Thrust, Ibf Fj = — 3.6757tD* 


Sea Level Specific Impulse, / 5 « yj/ = 

lbf-sec/lbm _ — 

Boss-Boss Case Length, in ^ __ 3 +28.23^ + 8.696£- 4 M +0.009766Meop 

Nozzle Length (Aft Case Boss i n _ _J 4 87 + 1.8468J5'? 2966 ^57° 5225 -0.002486Meop+0.4242£, - 0.024457^ 
to Nozzle Exit), in _ 

Case length to Diameter Ratio, UD C = 

dim _ — 

Booster Total Length, in Ltotal = E c 


Igniter Weight, lbm 


W im = 21 . 0 +0.22\meop° nv A*,' W *D? Mi> 


Nozzle Weight, lbm fy n _ 588.7 + 0.02444 Ja^ (l +E,)L„ + 0.060484, Wj- 41 ®^ 1 * 2 

Internal Case Insulation, lbm W t = -19.5 + 0.2395< 702J rJ 3056 I;° 1211 -0.060241, 


Empty Case Weight, lbm = _277.8 + 5.822E - 4F, + 6.142£ - 6 L^Meop 0 ™ 4 ??' ‘* '°Dj 8575 

Total Rocket Motor Weight, = W p + W n + W t + fV c + W ivt 

lbm_ - 

Total Stage Component W„ t = W NmCm + + W FwdSUn + + »s*«r«o». + 

Weight, lbm_________ 

Total Booster weight, lbm W^ - W^ + W Jtg 

Booster Ideal Velocity, fl/sec y M = Isp , b 32.18 

^ fF 

Booster Mass Fraction, dim Mfsrb - 
Total Impulse Sea Level, /,/ = FjTb 

Ibf-sec _ - 


Total Impulse vacuum. 


I v - FyTb 


RMSE = 0.002 
(0.34-0.81) 

RMSE = 3,466 
(198k-3.0lM) 

Analytical 

Equation 

RMSE = 11 
(329-6,820) 

Analytical 

Equation 

Analytical 

Equation 

Analytical 

Equation 

Analytical 

Equation 

RMSE = 5 
(492-1,825) 

RMSE = 3 
(46-374) 

Analytical 

Equation 

Analytical 

Equation 

RMSE =28 
(76-1,754) 

RMSE = 1184 
(1,9 44-47,600) 

RMSE = 107 
(1,830-17,200) 

RMSE = 1,066 
(2,840-117k) 

Analytical 

Equation 

Analytical Eq. 
(4,300-193K) 

Analytical 

Equation 

Analytical 

Equation 

Analytical 

Equation 

Analytical Eq. 
(44M-716M) 

Analytical Eq. 
(51M-854M) 


























































Figure 47. Script for Mg Clean 
Propellant Model 
(Large Motors) 
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Invalidate On 
Manual Recalc 
Select Range A116 
Window Scale 65% 

{Titles and dates} 

Put" Large Motors" Into A123 

Put "Neutralizing Mg (DL-H435) Propellant" Into C123 
Put "14 January 1993" Into A124 

{Initial Independent Variable Setup} 

Put 1000 Into Cl26 {Meop. psla} 

Put 7 Into Cl27 {Initial Area Ratio, El} 

Put 2590000 Into C128 {(Favg)vac, lbf} 

Put 111 Into C129 {Burn Time, Tb, seconds} 

Put 146 Into C130 {Dcase, in} 

Put 1000000 Into C131 {Push Weight, lbm} 

Put 1.3 Into C132 {Nose Cone Length/Diameter} 


{Load Range Information} 

Put "200 To 2000" Into D126 
Put "5 To 19" Into D127 
Put "320 K To 8.9 M" Into D128 
Put "60 To 178" Into D129 
Put "80 To 255" Into D130 

{Load Range Limit Checks} 

Put "=If(C126<200, 1,0)" Into K126 
Put "=If (C126>2000. 1.0)" Into K127 
Put "=If (C127<5, 1,0)" Into K128 
Put "=If (C127>19, 1,0)" Into K129 
Put ”=If (C128<320000. 1,0)" Into K130 
Put "=If (C128>8900000. 1.0)* Into K131 
Put "=If (C129<60, 1,0)" Into K132 
Put "=If(C129>178, 1,0)" Into K133 
Put "=If (C130<80, 1.0)" Into K134 
Put "=If (C130>255, 1,0)" Into K135 

{Load Results Formulas, RMSE and correlation limits, and percent error} 

{Rbo} 

Put "=(4.957*((C130/C129) A 0.9788)*(C126 A (-0.3614)))*L122" Into G126 

Put "=If{G126<0.34*L 122,""Note 3"".IflG126>0.81*L122,""Note 4"",0.002*L122))" Into H126 

Put"" Into 1126 

{(Isp)sl} 

Put "=G128*G131 /(C128*L126)" Into G127 
Put "N/A" Into HI27 
Put"" Into 1127 

{(Isp)vac} 

Put "=(C128*C129/(G138/L123))*L125" Into G128 
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Put "N/A" Into HI28 
Put"" Into 1128 


{(A throat )avg} 

Put "=(-15.2+157.4*((G138/L123) A 0.9899)*(C126 A (-0.9404))*(C129 A (-0.9776)) 
+(1.027E-5)*C128+0.3134*C129)*L122*L122" Into 0129 
Put "=If(G129<329*L122*L 122, ""Note 3"",If(G129>6820*L122*L122,""Note 4"",11*L122*L122))" Into H12 

Put ""Into 1129 


{(R throat)avg} 

Put "=SqRt(G129/3.141593)" Into G130 
Put "N/A" Into HI30 
Put ""Into 1130 


{(Favg)sl} 

Put "*(C128-11.54535*G136*G136/(L122*L122))*L126" Into G131 


Put "N/A" Into H131 
Put"" Into 1131 


{(Favg)vac} 

Put "*C128*L126" Into G132 
Put "N/A" Into HI32 
Put"" Into 1132 

{L C 3 .SC} 

Put ”=(-0.3+28.23*{{G138/L123)/(C130*C130)) A 0.9794+(8.696E-4) 

•(Gl 38 /Ll 23)/C129+0.009766*C126)*Ll 22" Into G133 
Put "=IfIG133<492*L 122,""Note 3"".Ifl[G133>1825*L122,""Note 4"",5*L122))" Into H133 
Put ""Into 1133 


{L/D case} 

Put "=G133/(C130*L122)" Into G134 

Put "=IfIG134>5.6.""Note 1"".""N/A"T Into H134 

Put"" Into 1134 


{L nozzle} 

Put "=(-14.87+ 1.8468*(C127 A 0.2966)*((G129/(L122*L122)) A 0.5225) 

- 0 .002486*C1 26 + 0 .4242*C127-0.02445*C129)*L122" Into G135 
Put "=IflG135<46*L 122,""Note 3"".If(G135>374*L122.""Note 4"",3*L122))" Into H135 
Put ""Into 1135 

(Nozzle Exit Dla} 

Put "=(2*SqRt(((G130/L122-0.005*C129) A 2)*C127))*L122" Into G136 
Put "N/A" Into HI36 
Put"" Into 1136 

(Total Length} 

Put "=G133+G135+(C132*C130)*L122" Into G137 
Put "N/A" Into HI37 
Put"" Into 1137 

(W propellant} 

Put "=((0.005028*C128 A 0.9953)*(C129 A 1.0027)*(C127 A (-0.06843))*(C126 A (-0.01470)))*L123" Into G138 
Put "=If(G138>198000*L 123,""Note 4*",IflG138<3010000*L123,""Note 3"",3466*L123))" Into H138 
Put"" Into 1138 
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Put "= + IfIGlJI9< 1944^L1^23!"Note 3"!lfIG139>47600*L123,''Note 4"",1184*L123)1“ lntoH139 
Put ""Into 1139 

Put C M-19 S 5+0 tl 2395*((G138/L123) A 0.7022)*(C129 A 0.3056)*((G133/L122)''(-0.1211)) 

Put 4-. 107*L123))" into H140 

Put ""Into 1140 

{W case} 

** 3 sVl 1 221*0.8298)*(C 126 A 0.7754)*(C 128 A 0.1110)*(C130 A 1.8575))*L123" Into G141 

Put "*If(G141<2840*L123.""Note 3"".If(G141>117000*L123.""Note 4"\1066*L123))" Into H141 
Put ■" Into 1141 

Z‘*- n m r 0*0 22 1 8 *(C 126 "0.1277)“((Q129/(L122“L122)1 A 1.3314)“(C 130 , '(*0.6535)))“L123“ Into G142 

K! •:1rGU?< 76-L 123."Note 5”.lVoi42»1764*L123.”Not« 4-.28-L123))- Into H142 
Put"" Into 1142 

(W nose cone} 

~+ (^.533IS *5) * HI(cf130/2^*55qR t(((C130/2) A 2)+((C 132*C 130) A 2))) A 2))*L 123" Into G143 

Put "N/A" Into HI43 
Put"" Into 1143 

^t C "^(8™^0. I 7245*C > r30+0.1071*((C130/2) A 2))*L123" Into G144 
Put "N/A" Into HI44 
Put ""Into 1144 

Kt t ME^(2.09s! a 0.05276“C130.0.0000846-C130“C130))“L123“IntoO145 

Put "N/A" Into HI45 
Put"" Into 1145 

Kt^(E k i t (2!8 a 9 t l0 C 06343*C130-0.00012*C130*C130))*L123" Into 0146 
Put "N/A" Into HI46 
Put"" Into 1146 

{W separation system} 

Put "=0.0011208*0149" Into G147 
Put "N/A" Into HI47 
Put "" Into 1147 

Put™=?- C 1039-0.00204“(G149/L123)+2.854“((G133+01351/Ll22)+0.07885“((Cl30/2)''2))*L123" Into G14 

Put "N/A" Into HI48 
Put"" Into 1148 


{W SRM} 

Put "=Sum(G138..G142)" Into G149 
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Put"" Into HI49 
Put"" Into 1149 


{W stage} 

Put "=Sum(G 143..0148)" Into G150 
Put "=If(G150<4300*L 123, ""Note 3"" 


,IfIG150>193000*L123, 


""Note 4"" 


Put"" Into 1150 


""""))" Into H150 


{W SRB} 

Put "=G149+G150" Into G151 
Put"" Into H151 
Put ""Into 1151 


Put < “«KJ2.18*(G128/L125) , Ln((C131+(Q151/L123)J/(C131+(G151 /LI23M0138/L123))))*L124" Into 015 

Put "N/A" Into HI52 
Put"" Into 1152 

{Mass Fraction} 

Put "=G138/G151" Into G153 
Put "N/A" Into HI53 
Put"" Into 1153 


{(Impulse)sl} 

"»MU3154<44000000*L?26,""Note 3".IH0154>716000000-L126."Note 4”.'“»- Into H154 
Put"" Into 1154 


{(Impulse)vac} 

Put "=C128*C129*L126" Into G155 
Put "=If{G155<51000000*L 126.""Note 
Put"" Into 1155 


3"",IftG155>854000000*L126.""Note 


4 "",""""))" Into HI55 


{Load Notes} 

Put "Note 1:" Into A135 

Put "Cases with L/D greater than 5.6" Into Cl35 
Put "are difficult to wind w/o joints." Into Cl36 


Put "Note 2:" Into A138 
Put "MG propellant bum rates" Into Cl38 
Put "(Rbo) are tallorable between" Into Cl39 
Put "0.34 and 0.81 Ips." Into C140 

Put "Note 3:" Into A142 

Put "Data Is being extrapolated" Into Cl42 

Put "below range of regression." Into Cl43 

Put "Note 4:" Into A145 

Put "Data Is being extrapolated" Into Cl45 

Put "above range of regression." Into Cl46 


Automatic Recalc 
Invalidate Off 



Medium Motors 
18 August 1992 




Neutralizing Mg (DL-H435) Propellant 


Meop, psia 

Initial Area Ratio, El 

(Favglvac, lbf 

Burn Time, Tb, seconds 

Dcase, in 

Push Weight, lbm 


Note 1 


Note 2: 


Note 3: 


Note 4: 




m 


rim 


;rTTT ^ 




2,000 

10 

250.000 

40 

70 

200.000 


900 To 2000 
7 To 19 
62K to 328K 
30 To 105 
30 To 105 


Cases with L/D greater than 5.6 
are difficult to wind w/o joints. 

MG propellant bum rates 
(Rbo) are tailorable between 
0.34 and 0.81 ips. 

Data is being extrapolated 
below range of regression. 

Data is being extrapolated 
above range of regression. 


rnmaemmm 


Rbo, In/sec 
(Isp)sl. sec-lbf/lbm 
(Ispjvac, sec-lbf/lbm 
(A throat )avg, in A 2 
(R throat)avg, In 
(Favgjsl, lbf 
(Favglvac, lbf 
L case, in 
L/D case 
L nozzle, in 
Nozzle Exit O.D., in 
Total Length, in 
W propellant, lbm 
W nozzle, lbm 
W insulation, lbm 
W case, lbm 
W igniter, lbm 
W SRM. lbm 
W stage, lbm 
W SRB. lbm 
V ideal, ft/sec 
Mass Fraction 
(Impulse)sl. lbf-sec 
(Impulse)vac, lbf-sec 


IRMSEl 


0.573 

Note 4 

2.995 

253.43 

N/A 

N/A 

271.88 

0.595 

0.217 

115.4 

1.57 

0.872 

6.1 

N/A 

N/A 

233,035 

N/A 

N/A 

250,000 

N/A 

N/A 

217.5 

1.519 

0.466 

3.11 

N/A 

N/A 

24.7 

0.94 

2.282 

38.3 

N/A 

N/A 

347.2 

N/A 

N/A 

36.781 

N/A 

N/A 

540.7 

21 

2.358 

567.2 

13.42 

1.33 

403.5 

66.95 

2.64 

24.3 

2.9 

5.74 

38.317 

71.7 


1,556 

94.8 

4.3 

39,873 

121.5 


1,456 

N/A 

N/A 

0.922 

N/A 

N/A 

9.321E+06 

N/A 

N/A 

1.000E+07 

N/A 

N/A 


Figure 48. Printed Output - "Report" - English Units 
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Figure 49. Printed Output - “Briefing" - Metric Units 


















Figure 50. Script for Mg Clean 
Propellant Model 
(Medium Motors) 


TA3-0330 



Page: 1 


27 March 1993 05:58:49 PM Parametric Database/Object 240 script 

Invalidate On 
Manual Recalc 
Select Range A57 
Window Scale 65% 

{Titles and dates) 

Put" Medium Motors" Into A64 

Put "Neutralizing Mg (DL - H435) Propellant Into 064 

Put "18 August 1992" Into A65 

{Initial Independent Variable Setup) 

Put 2000 Into C67 {Meop, psia) 

Put 10 Into C68 {Initial Area Ratio. El) 

Put 250000 Into C69 {(Favg)vac, lbf) 

Put 40 Into C70 {Bum Time, Tb, seconds) 

Put 70 Into C71 {Dcase, in) 

Put 200000 Into C72 {Push Weight, lbm) 


{Load Range Information) 

Put "900 To 2000" Into D67 
Put "7 To 19" Into D68 
Put "62K to 328K" Into D69 
Put "30 To 105" Into D70 
Put "30 To 105" Into D71 


{Load Range Limit Checks) 

Put "=If (C67<900, 1.0)" Into K67 
Put "=If (C67>2000, 1.0)" Into K68 
Put "=lf (C68<7, 1.0)" Into K69 
Put "=If(C68>19, 1.0)" Into K70 
Put "=If (C69<62000, 1,0)" Into K71 
Put "=If (C69>328000. 1,0)" Into K72 
Put "=If (C70<30, 1,0)" Into K73 
Put "=If(C70>105, 1.0)" Into K74 
Put "=If (C71<30. 1,0)" Into K75 
Put "=If (C71>105, 1,0)" Into K76 


{Load Dependent Terms and Intermediate Results) 

Put "=C71/C70" Into M76 

Put "=C67*M76" Into M78 

Put "=(C67/ 1000) A 0.39" Into M80 

Put "=C69*C70" Into M82 

Put "=C69/C67" Into M84 

Put "=M84/C68" Into M86 

Put "=(G79/L3)/C70" Into M88 

Put "=(G79/L3)/(C71*C71)" Into M90 

Put "=(G71 /L2)*C68" Into M92 

Put "=((SqRt(G70)+SqRt(G70*C68))/2*G76)/(L2*L2)" Into M94 
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27 March 1993 05:58:50 PM Parametric Database/Object 240 script 

Put "=(G79/L3)/C70*(26.0314*C70/(C71*C71)+0.000046398)" Into M97 
Put "=LN((C72+(G86/L3))/(C72+(G86-G79)/L3))* Into Ml00 


{Load Results Formulas. RMSE and correlation limits, and percent error} 


A^fil+O 31293*M76+0 00001733331*M78-0.37345*M80)*L2" Into G67 

™ ,2m£.mG67>0.532*L2,**Not« 4**.0.0125*L2»* Into H67 

Put 2.995 Into 167 


{{Isp)sl} 

Put "=G72*C70/G79" Into G68 
Put "N/A" Into H68 
Put "N/A" Into 168 


K& 168 . 3 47093*068-0.079374*C68*C68+0.000010827*069-0.026726*C70)* L5“ Into 069 

St"= 18069<26^*L.5 /"Note 3**,IIIG69>286*L5,"Note 4-.0.595-L5H" Into H69 
Put 0.217 Into 169 


M M8 255?+0 0000009095*M82+0.72572*M84+0.58737*M86)*L2*L2" Into G70 

"=iflG70<46.5*L2*L2.""Note 3"".IflG70>368.2*L2*L2.""Note 4«".1.57*L2*L2))" Into H70 
Put 0.872 Into 170 


{(R throatjavg} 

Put "=SqRt(G70/3.141593)" Into G71 
Put "N/A" Into H71 
Put "N/A" Into 171 


/(Favc)sl} 

Put "=(C69-14.7*C68*G70/(L2*L2))*L6" Into G72 


Put "N/A" Into H72 
Put "N/A" Into 172 


{(Favg)vac} 

Put "=C69*L6" Into G73 
Put "N/A" Into H73 
Put "N/A" Into 173 


Put "-{6 918+26 0782*M90+10. 5873*M80-0.049018*C70+0.000008449*071*C71*C71)*L2" Into G74 

Kft *.mO74<207*L2/*Note 3*V«G74>462*L2/*Note 4". 1.519-L2H* Into H74 
Put 0.466 Into 174 


{L/D case} 

Put "=G74/(C71*L2)" Into G75 

Put "=If(G75>5.6,""Note 1"",""N/A"T Into H75 

Put "N/A" Into 175 


P^t"“-T-26 0584.6. 33835*107 1 /L2J+0.1 6796*M92-0.001205*067+0.46015*068 ]*L2* Into 076 

-: m G 76<5 3*L2 **Note 3**,IfI076>89.2*L2.**Note 4**.0.94*L21I* Into H76 
Put 2.282 Into 176 
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{Nozzle Exit Dia} 

Put "*2*G71*SqRt(C68)* Into G77 
Put "N/A" Into H77 
Put "N/A" Into 177 


{Total Length} 

Put "=G74+G76+( 1.5*C71 )*L2" Into G78 
Put "N/A" Into H78 
Put "N/A" Into 178 


{W propellant} 

Put "=(C69*L6)*C70/G69" Into 
Put "=IfIG79>105000*L3,""Note 4"\If[G79<15000*L3," Note 



Put "N/A" Into 179 


3"",""N/A""))" Into H79 


Put"-(36^9679+0.000011857*M82+0.1818*M94+1.41166 , C70+9.22776*G76/L2)*L3" Into G80 
P^t "=IflG80<221*L3.""Note 3"".IflG80>1819*L3.""Note 4"".21*L3))" Into H80 
Put 2.358 Into 180 


P^t^=M a 70.9 } 12+0.09922*C71*C71+M97+1.41144*C70}*L3* Into G81 

Put "=If(G81<260*L3,""Note 3"".If(G81>2085*L3,""Note 4"",13.42*L3))" Into H81 

Put 1.33 Into 181 


Km43 337 + 0 . 030 13*C71*C71+3.5389*C71+0.0006026*C69+0.0000222242 , G79/L3)*L3" Into G82 

Put "=If(G82<394*L3,*"Note 3"\Ifl(G82>5676 , L3.""Note 4*\66.95*L3))" Into H82 
Put 2.64 Into 182 


pIJt 1 Ml t 5 ! 6963 + 0 . 00014004 *(G 70 /{L 2 *L 2 ))/(C 71 *C 71 )+ 51 . 1973 *M 88 /C 67 - 0 . 0074883 "C 67 )*L 3 "Into G83 

Put "*If(G83<16.13*L3,""Note 3"".IAG83>106.5*L3.""Note 4" ,2.9 L3)) Into H83 
Put 5.74 Into 183 


{W SRM} 

Put "=Sum(G79..G83)" Into G84 
Put "=71.7*L3" Into H84 
Put" " Into 184 


pUt'SlfStt 96 + 0 .16858*C71*C71+0.001425*C71*C71*C71+3.07233*(G74+G76)/L2)*L3" Into G85 

Put "=If{G85<674*L3,""Note 3"".IflG85>4240*L3,""Note 4"".94.8*L3))* Into H85 
Put 4.3 Into 185 


{W SRB} 

Put "=G84+G85" Into G86 
Put "=121.5*L3" Into H86 
Put" " Into 186 

{V ideal} 

Put "=((G69/L5)*32.18*M100)*L4" Into G87 
Put "N/A" Into H87 
Put "N/A" Into 187 
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Page: 4 


{Mass Fraction} 

Put "=G79/G86" Into G88 
Put "N/A" Into H88 
Put "N/A" Into 188 

{(Impulse)sl} 

Put "*G72*C70" Into G89 
Put "N/A" Into H89 
Put "N/A" Into 189 

{(Impulse)vac} 

Put "=G73*C70" Into G90 
Put "N/A" Into H90 
Put "N/A" Into 190 


{Load Notes} 

Put "Note 1:" Into A76 

Put "Cases with L/D greater than 5.6" Into C76 
Put "are difficult to wind w/o joints." Into C77 

Put "Note 2:" Into A79 
Put "MG propellant bum rates" Into C79 
Put "(Rbo) are tailorable between" Into C80 
Put "0.34 and 0.81 ips." Into C81 

Put "Note 3:" Into A83 

Put "Data is being extrapolated" Into C83 

Put "below range of regression." Into C84 

Put "Note 4:" Into A86 

Put "Data is being extrapolated" Into C86 

Put "above range of regression." Into C87 

Automatic Recalc 


Invalidate Off 



Ingredient 

Weight Percent 

PGN 

35.0 

A! 

25.0 

AN** 

40.0 


* varied for mechanical property control 
** varied for burn rate control 


Figure 51. Nominal Composition of Non-Chlorine Clean Propellant 


Exhaust Product 

Mass Fraction 

CO (g) 

0.236 

C02 (g) 

0.0175 

A10H 

0.00001 

AI02H 

0.00001 

A1203 (1 & S) 

0.472 

OH (g) 

0.00017 

H (g) 

0.00023 

H2 (g) 

0.0274 

H20 (g) 

0.0653 

NO (g) 

0.00001 

N2 (g) 

0.1811 


Figure 52. Theoretical Exhaust Products at 1,000 psi 
Chamber Pressure Expanded to 14.7 psi 
Non-Chlorine Clean Propellant 






Large Motors 



Non-Chlorine (PGN/AN/AL) Clean Propellant 


Meop, psla 

Initial Area Ratio, El 

(Favg)vac, ibf 

Bum Time, Tb, seconds 

Dcase, in 

Push Weight, lbm 

Nose Cone L/D_ 


1,000 

7.0 

2,590.000 

111 

146 

1 , 000,000 

1.30 


200 To 2000 
5 To 19 

|320 K To 8.9 M 
60 To 178 
80 To 255 


Dependent Terms 




Note 1: Cases with L/D greater than 5.6 
are difficult to wind w/o Joints. 

Note 2: MG propellant bum rates 

(Rbo) are tailorable between 
0.33 and 0.818 ips. 

Note 3: Data is being extrapolated 
below range of regression. 

Note 4: Data is being extrapolated 
above range of regression. 


Rbo, in/sec 
(Isp)sl, sec-lbf/lbm 
{Ispjvac, sec-lbf/lbm 
(A throat)avg. ln A 2 
(R throatjavg, in 
(Favg)sl. Ibf 
(Favg)vac, Ibf 
L case, in 
L/D case 
L nozzle, in 
Nozzle Exit O.D., in 
Total Length, in 
W propellant, lbm 
W nozzle, lbm 
W insulation, lbm 
W case, lbm 
W igniter, lbm 
W nose cone, lbm 
W ext insul, lbm 
W fwd skirt, lbm 
W aft skirt, lbm 
W separation, lbm 
W misc, lbm 
W SRM, lbm 
W stage, lbm 
W SRB, lbm 
V ideal, ft/sec 
Mass Fraction 
(Impulse)sl, Ibf-sec 
(Impulse)vac, Ibf-sec 


0.540 

244.10 

267.69 

2.312.2 
27.1 

2,361.706 

2,590,000 

1.230.4 
8.43 

171.1 
140.6 

1.591.3 
1,073,951 

13,442.8 

7,003.6 

26,915.1 

639.2 

3.742.3 
763.5 

2.965.0 

14,659.7 

1.257.5 
1,634.1 

1.122E+06 
2.502E+04 
1.147E+06 
5.975E+03 
9.363E-01 
2.621E+08 
2.875E+08 


RMSE 

0.002 

N/A 

N/A 

11 

N/A 

N/A 

N/A 

5 

Note 1 
3 

N/A 

N/A 

3,048 

567 

241 

909 

22 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 


N/A 

N/A 



Figure 53. Printed Output - "Report" - English Units 

































Figure 54. Printed Output - "Briefing" - Metric Units 



















Figure 55. Equations for Non-Chlorine 

Clean Propellant Model 


TA3-0327 


Equations for Stags Components 


Variable to be 
Calculated flffliatton 


Nose Cone Weight, lbm 


- 3395 - 2098 H w - 0.4705(A /2) 2 + 2.533*10-’ {(A /2)M W + W ) 2 } 


External Insulation Weight, lbm 

- 87 + 0.7243A + 0.1071(A /2) 

Fwd Skirt and Attach Weight, lbm 

„„ (2.09J + 0.05276D e -0.0000846C*) 

W FwiS kift “ « 

Ait Sk irt and Attach Weight, lbm 

„(2.89 + 0.06343I>* -0.00012Z>c) 
stiff - « 

Separation System Weight, lbm 

Wseparatlon " 0.0011208IV, 


Misc Weight, lbm 

2 

- -1039 - 0.00204W inK + 2.854I ea , e a nozzle + 0.07885(D c /2) 


TA3-0321 




Large Motors Equations For Non-Chlorine Propellant 



^-.- / \ 0 y lyj 

Burning Rale @ 1000 psia, ips RbQ = 5.362(f^) Meop ~* 3713 
Propellant We lg ht,lbm w = 642.4 + 0.0CW62i^^^ 


Propellant Weight, lbm 


Vacuum specific Impulse, / 5 p v = — 
Ibf-sec/lbm p 


Average Nozzle Throat Area, = -11.5 + U7 + 1.923 E - 5F, + 0.34617* 


Average Nozzle Throat 
Radius, in 


R,= Jt 


Diameter of Nozzle @ Exit, in £) b = 2 J(fl,-O.OOSr*) 2 ^ 
Average Sea Level Thrust, lbf ^ = F, — 3.6 T 5 E. ^ 


/jpv-Fd 


Sea Level Specific Impulse, / 5 „ yjrf _ 
lbf-seolbm F 


-T--- T . . r w -10.9735 

Boss-Boss Case Length, in ^ =-3 0+26.79 — + 


0.0008531 M +0.00861 5Meop 


Nozzle Length (Aft Case Boss - -16.3 + 1.892£? 2937 ^° 5206 - 0.002267Afeop + 0.4660£, - 0.023407* 
to Nozzle Exit), in _ ■■ 

Case length to Diameter Ratio, [JD C = —■ 

dim e __.—■ 


Booster Total Length, in 


Igniter Weight, lbm 


Nozzle Weight, lbm 


L>total — “l" + NUdDc 

W tpt = 16.6 + 0.2810 Meop^A^D; 06 ' 64 

W n = 327.3 + 0.02671 (1 +Ei)L„ + 0.16644? 6 ° 79 W^‘ M69 £? 1U1 


-0 06609 


Internal Case Insulation, lbm fy, = -19.4 +0.2425W^ 7148 rJ 3103 7‘° 1566 +>1/ 

Empty Case Weight, lbm ^ = ->122.9 + 5.155E - 4F V + 6. 142£ - 6L° C ^Meop 0m2 F?' n0 *D [ c m 


Total Rocket Motor Weight, Wjrm = W p + W n + W7 + W c + 

lbm_ — 

Total Stage Component W sig = WtfowCon. + W'Wwda/.o* + ^/WSfcrf + + ^Stpariion + 

Weight, lbm - 

Total Booster weight, lbm W^ = fF*™ + fF,rg 

Booster Ideal Velocity, ft/sec ^ = /^ln( i r ^~)32.18 __ 

Booster Mass Fraction, dim Mfsrb = ^T" 

Total Impulse Sea Level, /*/ = FsiTb 

lbf-sec — 


Total Impulse vacuum, 

II__ 


U = FJ b 


RMSE = 0.002 
(0.33-0.818) 

RMSE = 3,048 
(200k-3M) 

Analytical 

Equation 

RMSE = 11 
( 334-9,760) 

Analytical 

Equation 

Analytical 

Equation 

Analytical 

Equation 

Analytical 

Equation 

RMSE = 5 
(457-1,688) 

RMSE = 3 
(50-380) 

Analytical 

Equation 

Analytical 

Equation 

RMSE = 22 
(77-2,922) 

RMSE = 567 
(2.6k-49.8k) 

RMSE = 241 
(1,700-16,800) 

RMSE = 909 
(2,720-110k) 


Analytical 

Equation 

Analytical Eq. 
(4,300-193K) 

Analytical 

Equation 


Analytical 

Equation 

Analytical 

Equation 

Analytical Eq. 
(45M-720M) 

Analytical Eq. 
(52M-861M) 














































































































Figure 56. Script for Non-Chlorine Clean 

Propellant Model 


TA3-0331 
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27 March 1993 06:05:16 PM Parametric Database/Object 45 script 

Invalidate On 
Manual Recalc 
Select Range A116 
Window Scale 65% 


{Titles and dates} 

Put H Large Motors" Into A123 

Put "Non-Chlorine (PGN/AN/AL) Clean Propellant" Into Cl23 
Put "14 January 1993" Into A124 


{Initial Independent Variable Setup} 


Put 1000 Into C126 
Put 7 Into Cl27 


Put 2590000 Into Cl28 
Put 111 Into C129 
Put 146 Into C130 
Put 1000000 Into C131 
Put 1.3 Into C132 


{Meop, psia} 
{Initial Area Ratio, El} 


{(Favg)vac, lbf} 

{Burn Time, Tb, seconds} 
{Dcase, in} 

{Push Weight, lbm} 
{Nose Cone Length/Diameter} 


{Load Range Information} 

Put "200 To 2000" Into D126 
Put "5 To 19"IntoD127 
Put "320 K To 8.9 M" Into D128 
Put "60 To 178" Into D129 
Put "80 To 255" Into D130 


{Load Range Limit Checks} 

Put "=If (C126<200, 1.0)" Into K126 
Put "=If (C126>2000. 1,0)" Into K127 
Put "=If (C127<5. 1,0)" Into K128 
Put "=If (C127>19, 1.0)" Into K129 
Put "=If (C128<320000. 1.0)" Into K130 
Put "=If (C128>8900000. 1.0)" Into K131 
Put "=If(C129<60. 1.0)" Into K132 
Put "=If (C129>178, 1,0)" Into K133 
Put "=If (C130<80, 1.0)" Into K134 
Put "=If (C130>255, 1,0)" Into K135 

{Load Results Formulas, RMSE and correlation limits, and percent error} 


{Rbo} 


Put "=f5 362*((C130/C129) A 0.9793)*(C126 A (-0.3713)))*L122" Into G126 

Put "=IflG126<0.33*L122,""Note 3"".If(G126>0.818*L122.""Note 4"",0.002*L122)) Into 


Put "=IflG126<0 
Put ""Into 1126 


H126 


{(Isp)sl} 

Put "=G128*G131 / (C128*L126)' 


Into G127 


Put "N/A" Into HI27 
Put"" Into 1127 


Put "=(C128*C129/(G138/L123))*L125" Into G128 
Put ”N/A" Into HI28 
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Put ""Into 1128 


Put^=(°f l^+*187.8*((G 138/L123) A 0.9949)*(C 126 A (-0.9708))*(C 129 A (-0.9838)) 

Put "^inCU^SSVLl 2 22‘°L 1 ^/"Site 9 S-MflGl^g^^Lm'Ll22,""Note 4"\11*L122*L122))" Into H12 
Put "" Into 1129 


{(R throatjavg} 

Put "=SqRt(G129/3.141593)" Into Q130 
Put "N/A" Into HI30 
Put ""Into 1130 


Puf^=(C 128 *l 1.54535*0136*0136/(L122*L122))*L126" Into 0131 


Put "N/A" Into HI31 
Put"" Into 1131 


{(Favg)vac} 

Put "sC128*L126" Into G132 
Put "N/A" Into HI32 
Put"" Into 1132 


Put "=(- 3 . 0 + 26 .79*((G138/Ll 23)/(C130*C130)) A 0.9735+(8.53 IE-4) 

*(G 138 /Ll23)/Cl29+0.008615*0126)*L122" Into G133 
Put "=If(G133<457*L122,""Note 3"".IflG133>1688*L122.""Note 4"".5 


•L122))" Into H133 


Put"" Into 1133 


{L/D case} 

Put *=G133/(C130*L122)" Into G134 

Put "=If(G134>5.6,""Note 1"",""N/A"")" Into H134 

Put "* Into 1134 


fcr°=( Z - 1 16.3+1.892*(C127 A 0.2937)*((G129/(L122*L122)) A 0.5206) 

-0.002267*C1 26 + 0 .4660*C127-0.02340*C129)*L122" Into 0135 
Put "=IflG135<50*L122.""Note 3"".If(G135>380*L122.""Note 4 .3 L. 122)) IntoH135 
Put"" Into 1135 


{ ^r"=(2*Sq t R?( 1 (tG130/L122-0.005*C129) A 2)*C127))*L122* IntoG136 


Put "N/A" Into HI36 
Put"" Into 1136 


{Total Length} 

Put "=G133+G135+(C132*C130)*L122" Into G137 
Put "N/A" Into HI37 
Put"" Into 1137 


(W propellant} 

Put "=(642.4+(0.004462*(C128 A 0.9955)*(C129 A 1.0027)* 

(C127 A (-0.07409))*(C126 A 0.002841)))*L123" Into G138 
Put "=If{0138<200000*L123,""Note 3"".If(G138>3000000*L123.""Note 
Put"" Into 1138 


4"",3048*L123))" Into H138 
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(W nozzle} 

Pu * 

Put "=If(G139<2600*L 123,""Note 3"",If(G139>49800*L 123,""Note 4 ,567*L123)) Into 
Put ""Into 1139 

pI[t C "^19 S 4!o U 2425*({G138/L123) A 0.7148)*(C129 A 0.3103)*((G133/L122) A (-0.1566)) 

+ffG129/(L122*L122)) A 0.06609))*L123" Into G140 
Put "=If(G140<1700*L123,""Note 3 "",IflG 140 > 16800 *L 123,""Note 4"",241*L123)) Into H140 

Put"" Into 1140 
{W case} 

PU ‘u 2 2E*6)-((G 5 13m?2!f^.8250nCI26*0.7722|-(C128-OM 108)-(C130- 1.86911-L123- Into GUI 
Put "=IfiG141<2720*L123.""Note 3"".If(G141>l 10000*L 123,""Note 4"\909‘L123))" Into H141 
Put ""Into 1141 

KJr-nI'e.O 2810*10 126*0.1167)*((G129/(L122*L122I)"1.287)*(C130'(-0.6164)))*L123“ Into 0142 

£{ “«If(G 142<77 L123,"Note 3".MOl42>2922*tl2S.“Note 4**.22*L123)>* Into H142 
Put ""Into 1142 

{W nose cone} 

PUt = +f^. 533 E-^*U((^ 130 /^)*^SqRt(UC^l 30/ 2) A 2)+({C 132*C 130) A 2))) A 2))*L 123" Into G143 

Put "N/A" Into HI43 
Put ""Into 1143 

{W external Insulation} • 

Put "=(87+0.7243*C130+0.1071 *((C 130/2) A 2))*L 123 Into G144 

Put "N/A" Into HI44 
Put ""Into 1144 

pUt f "^E S S2.09 a 5^ C 05276*C130-0.0000846»C130*C130))*L123" IntoG145 
Put "N/A" Into HI45 
Put"" Into 1145 

(W aft skirt & attach} . „, . _ 

Put "=(Exp( 2 . 89 + 0 .06343*C 130-0.00012*C130*C130))*L123" Into G146 

Put "N/A" Into HI46 
Put"" Into 1146 

{W separation system} 

Put "=0.0011208*G149" Into G147 
Put "N/A" Into HI47 
Put"" Into 1147 

Put "=(-1039-0.00204*(G149/L123)+2.854*((G133+G135)/L122)+0.07885*((C130/2) 2))*L123 Into G14 
Put "N/A" Into HI48 
Put "" Into 1148 


{W SRM} 

Put "=Sum(G138..G142)" Into G149 
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Put"" Into HI49 
Put " M Into 1149 


{W stage} 

Put ■*U?O^0<4300M^23!""Note 3"",in0150>193000 , L123.""Note 
Put ""Into 1150 


4 "",""""))* Into H150 


{W SRB} 

Put "=G149+G150" Into G151 
Put"" Into HI51 
Put"" Into 1151 

Put^»G12.18 , (Q128/L125) , Ln({C131+(0151/I*123))/lC 131+10151/I*123)-(G138/L123))))*L124" Into 0151 

Put "N/A" Into HI52 
Put"" Into 1152 

{Mass Fraction} 

Put "=G138/G151" Into G153 
Put ”N/A" Into HI53 
Put"" Into 1153 


{(Impulse)sl} 

Put "=G131*C129" Into G154 

Put "=If(G 154<45000000*L 126,""Note 

Put ""Into 1154 


3"".If(G154>720000000*L 126,""Note 


4 "" 


""""))" Into H154 


{(Impulse)vac} 

Put "*C128*C129*L126" Into G155 
Put "=IflG155<52000000*L126,""Note 
Put"" Into 1155 


3 "".I«G 155 > 861000000 *L 126 .""Note 4"".""""))" Into H155 


(Load Notes} 

Put "Note 1:" Into A135 „,oe 

Put "Cases with L/D greater than 5.6" Into C135 
Put "are difficult to wind w/o Joints." Into Cl36 

Put "Note 2:" Into A138 
Put "MG propellant bum rates" Into Cl38 
Put "(Rbo) are tailorable between" Into Cl39 
Put "0.33 and 0.818 ips." Into Cl40 

Put "Note 3:" Into A142 

Put "Data is being extrapolated" Into C142 

Put "below range of regression." Into C143 

Put "Note 4:" Into A145 

Put 'Data is being extrapolated" Into Cl45 

Put "above range of regression." Into C146 


Automatic Recalc 
Invalidate Off 





Figure 57. Nominal Composition of Hybrid Propellant 


Exhaust Product 

Mass Fraction 
@ O/F = 2.8 

Mass Fraction 
@ O/F = 1.8 

CO (g) 

0.2032 

0.5632 

co 2 (g) 

0.5236 

0.2591 

OH (g) 

0.0155 

0.0000 

H (g) 

0.0003 

0.0000 

h 2 (g) 

0.0024 

0.0224 

H 2 0 (g) 

0.2286 

0.1536 

NO (g) 

0.0004 

0.0000 

N 2 (g) 

0.0011 

0.0017 

Oi (g) 

0.0025 

0.0000 

0 2 (g) 

0.0224 

0.0000 


Figure 58. Theoretical Exhaust Products at 1,000 psi Chamber 

Pressure Expanded to 14.7 psi 
Hybrid Propellant. 


TA3-0421Flg 





Large Motors 

23 March 1993 

iSiii 


Hybrid Propellants 


Meop, psia 

500 

500 

To 1500 

Initial Area Ratio, Ei - 

8 

8 

To 20 

(Favg)vac, lbf 

1,267.506 

280 K 

To 21 M 

Burn Time, Tb, seconds - 

45 

45 

To 200 

Nose Cone L/D 

1.3 

0.5 

To 3.0 

Max Ox Flux, lbm/a-in*2 

0.2 

0.2 

To 1.0 

Avg MR, O/F 

1.8 

1.8 

To 2.8 

Push Weight, lbm 

1.000.000 


IM 




Note Is Data is being extrapolated 
below range of regression. 

Note 2: Data is being extrapolated 
above range of regression. 


D nozzle exit, in 
(lsp)sl. sec-lbf/lbm 
(Isp)vac. sec-lbf/lbm 
(A throat)avg. ln A 2 
(R throat)avg. in 
(Favg)sl, lbf 
(Favg)vac, lbf 
L tank & case, in 
L/D case 
L nozzle, in 
D motor, in 
Total Length, in 
W oxidizer, lbm 
W fuel, lbm 
W propellant, lbm 
W nose cone, lbm 
W ext insul, lbm 
W fwd skirt, lbm 
W aft skirt, lbm 
W separation, lbm 
W misc, lbm 
W HRM. lbm 
W stage, lbm 
W HRB, lbm 
V ideal, ft/sec 
Mass Fraction 
(Impulse)sl, lbf-sec 
(Impulse )vac. lbf-sec 


132.8 
238.76 
284.48 

1.765.4 
23.7 

1,063,817 

1,267.506 

803.5 
4.91 

125.7 

163.5 
1.141.9 

128,454 

71,363 

199.818 

6.307.4 

921.5 
4,724 

23,240 

261 

1,666 

232.514 

3.712E+04 

2.696E+05 

1.568E+03 

8.594E-01 

4.787E+07 

5.704E+07 


Figure 59. Printed Output - "Report" English Units 
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Figure 60. Printed Output - "Briefing" - Metric Units 





































































Figure 61. Equations for Hybrid Rocket 

Booster Model 


TA3—0422 


Equations for Stags Components 


Variable to be 
Calculated Filiation 

Nose Cone Weight, Ibm 

w„ ott com - 3395 - 2098 W„ d - 0.4705(A/2) 2 + 2.533xl0' 5 {(A/2)/(A/2) 2 + (A r //dA) 2 } 


External Insulation Weight, lbm 

W btbumht u m -87 + 0.7243A +0.1071(A/2) 2 


Fwd Skirt and Attach Weight, lbm 

rrr J2.095 + 0.052760*-O.OOOO8460* 2 ) 

W F wdSkirt m e 

Aft Skirt and Attach Weight, lbm 


W^ftSklrt m e 


< 2.89 ♦ 0.063430c - 0.000120c 2 ) 


Separation System Weight, lbm 

Wscparatiom m 0,0011208 W srm 


Misc Weight, lbm 

w mitc - -1039 - 0.00204 W, m +2.854A„« * + 0.07885(A/2) 2 


TA3-0321 



Large Hybrid Motor Design Equations 



TSSpSclnlpulse^^^p^^l^_8.242A'+0.4931Y 2 ; where X = LnF? ■ l4,4 Ef M *0/F M * 5 77 2526 J 

Ibf-sec/lbm 


RMSE= 1.9 
(280.3-317.8) 



_____! “rrm^+t568p^656° 0.6478 RMSE =53 

External Nozzle Length, in = 190.1 - 294.4V- 205.3^ +407.9X 3 ; X = E° f R, F v X eop ( 45 . 1005 ) 



0, Used Weight, lbm 


W 01 = WfJOlF 


Analytical 

Equation 


Total Weight Propellant Used, W p = Wjm +W 01 
lbm 


Analytical 

Equation 


Hybrid Rocket Motor Mass M/hfm ~ “5.324 + 6.696 X- 0.7267e 6X 2 , where 
Fraction, dim 


RMSE = 0.012 
(0.73-0.91 ) 



Total Hybrid Rocket Booster fVfjRB = WHUM + Wstg 
weight, lbm _^ 

Booster Ideal Velocity, fttec = IspM 32.18 


Analytical 

Equation 

Analytical 

r nnot inn 








































































































Figure 62. Script for Hybrid Rocket 

Booster Model 
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Invalidate On 


Page: 1 


Manual Recalc 
Select Range A422 
Window Scale 65% 


{Titles and dates} 

Put" Large Motors" Into A408 
Put "Hybrid Propellants" Into C408 
Put "23 March 1993" Into A409 


{Initial Independent Variable Setup} 


Put 500 Into C411 
Put 8 Into C412 


{Meop, psia} 
{Initial Area Ratio, El} 


Put 1267506 Into C413 
Put 45 Into C414 
Put 1.3 Into C415 
Put 0.2 Into C416 
Put 1.8 Into C417 
Put 1000000 Into C418 


{(Favg)vac, lbf} 

{Burn Time, Tb, seconds} 

{Nose Cone Length/Diameter} 
{Max Oxidizer Flux} 

(Average Oxidizer/Fuel Ratio, O/F} 
{Push Weight, lbm} 


{Load Range Information} 

Put "500 To 1500" Into D411 
Put "8 To 20" Into D412 
Put "280 K To 21 M" Into D413 
Put "45 To 200" Into D414 
Put "0.2 To 1.0" Into D416 
Put "1.8 To 2.8" Into D417 


{Load Range Limit Checks} 

Put "=If(C411<500. 1,0)" Into K411 
Put ”=If(C411> 1500. 1.0)" Into K412 
Put "=If(C412<8, 1,0)" Into K413 
Put "=If (C412>20, 1,0)" Into K414 
Put ”=If (C413<280000, 1,0)* Into K415 
Put "=If (C413>21000000, 1.0)" Into K416 
Put "=If (C414<45, 1,0)" Into K417 
Put "=If (C414>200, 1,0)" Into K418 
Put "=If (C416<0.2, 1,0)" Into K419 
Put "=If (C416>1.0. 1,0)" Into K420 
Put "=If (C417<1.8, 1.0)" Into K421 
Put "=If (C417>2.8, 1,0)* Into K422 


{Load Results Formulas, RMSE and correlation limits, and percent error} 
{D nozzle exit} 

Put "=(2*SqRt((((G415/L402)-0.005*C414) A 2)*C412))*L402" Into G411 
Put "N/A" Into H411 
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Put"" Into 1411 
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Put*"=LN((C413 A 0.1414)*(C412 A 3.938)*(C417 A 3.685)*(C414 A (-0.2526)))" Into M413 
Put "=(314 4-8.242*M412+0.4932*M413*M413)*L405" Into G413 

Put "=If(G413<280.3«L405,""Note l"",If(G413>317.8*L405.""Note 2"\1.9*L405))" Into H413 
Put ""Into 1413 

{(Isp)sl} 

Put "=((G413*G416)/(C413*L406))" Into G412 
Put "N/A* Into H412 
Put"" Into 1412 


Put "=( 1 ^ 2 ^H 0 . 3718 *C 41 1 A (*0.5035))*(C413 A 0.5123)*C414 A 0.007919)*L402" Into G415 

Put "=If(G415<7.5*L402,""Note l"",If(G415>93.9*L402,""Note 2 ,0.9 L402)) IntoH415 
Put ""Into 1415 


{(A throat)avg> 

Put "=3.141593*G415*G415" Into G414 
Put "N/A" Into H414 
Put "" Into 1414 


{(Favg)sl) 

Put "=(C413-11.54535*G411*G411/(L402*L402))*L406" Into G416 


Put "N/A" Into H416 
Put "" Into 1416 


{(Favg)vac} 

Put "=C413*L406" Into G417 
Put "N/A" Into H417 
Put"" Into 1417 


Put^=U6.7+2.86*(C416 A 0.1767)*(C413 A 0.4396)*(C414 A 0.4159)*((G421/L402) A (-0.3175)) 

*(C411 A (-0.002468))*(C417 A (-0.3836)))*L402" Into G418 
Put "=IfIG418<654*L402,""Note l"",If(G418>3255*L402.""Note 2"".71*L402))" Into H418 

Put ""Into 1418 


{L/D case} 

Put "=G418/G421" Into G419 
Put "N/A" Into H419 
Put "" Into 1419 


Put "=(C412 A 0.1327)*((G415/L402) A 1.568)*(C413 A (-0.6560))*(C411 A 0.6478)" Into M420 
Put "=( 190.1-294.4*M420-205.3*M420*M420+407.9*M420 A 3)*L402" Into G420 
Put "=IflG420<45*L402,""Note l"",If(G420>1005*L402 > ""Note 2"",53*L402))" Into H420 
Put"" Into 1420 


Put "=(C443 A 0.5991)*(C416 A (-0.4856))*(C414 A 0.1652)" Into M421 

Put "=(59.8+0.005607*M421-1.136E-9*(M421 *M421 ))*L402" Into G421 

Put "=IfIG421<84*L402.""Note l"".If(G421>636*L402,""Note 2"\3*L402))" Into H421 


Put"" Into 1421 
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{Total Length} 

Put "=G420+G418+C415*G42l" Into G422 
Put "N/A" Into H422 
Put"" Into 1422 

{W oxidizer} 

Put "=G424*C417" Into G423 
Put "N/A" Into H423 
Put"" Into 1423 


Put "=(0.9966*C413*C414/((G413/L405)*( 1+C417)))*L403" Into G424 

Put "N/A" Into H424 
Put"" Into 1424 

{W propellant} 

Put "=G423+G424" Into G425 
Put "N/A" Into H425 
Put"" Into 1425 


{W nose cone} 

Put "=(G421/L402)" Into M426 

PU ' " = +^f.533E-E^)*(((M426'/2)*SqRttUfc4426/^)''2)+(lC415 , M4261"2)))"2))*L403" Into G426 

Put "N/A" Into H426 
Put"" Into 1426 


K(87fo I 7243“M426*0.1071*((M426/2)»2))*U0S* Into G427 


Put "N/A" Into H427 
Put "" Into 1427 


Pu/"»(E^(2!o95^o!o5276*M426-0.0000846*M426*M426))*L403" Into G428 

Put "N/A" Into H428 
Put"" Into 1428 


i^t^(^xp(*89-^06343*M426-0.00012*M426*M426))*L403" Into G429 
Put "N/A" Into H429 
Put"" Into 1429 


(W separation system} 

Put "= 0 . 001 1208*G432" Into G430 
Put "N/A" Into H430 
Put"" Into 1430 


p^t™=f-1039-0.00204*(G432/L403)+2.854 , ((G418+G420)/L402)+0.07885*((M426/2) A 2))*L403" Into G4 

Put "N/A" Into H431 
Put ""Into 1431 

{W HRM} 

Put "=G425/G436" Into G432 
Put"" Into H432 
Put"" Into 1432 
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{W stage} 

SI -SSoma'W l".IfIG433> l93000 # L403.'"Note 2". -)>' Into H433 

Put"" Into 1433 


{WHRB} 

Put "=G432+G433" Into G434 
Put"" Into H434 
Put"" Into 1434 


Put < "=032.18*(G413/L405)*Ln((C418+(G434/L403))/(C418+(G434/L403)-(G425/L403))))*L404 

Put "N/A" Into H435 
Put"" Into 1435 


Kf--(C411‘?0 01183))‘(C412*(.0.001051))-(C416*0.002209)‘(C417*(.0.003599)) 

.(C 414-0 604171)’(|G438/L406r 1-0.0007922))' Into M436 
Put «-.R 324+6 696*M436-(0.7267E-6)*M436*M436" Into G436 
Put "=IflG436<0.73.""Note l"".If[G436>0.91.""Note 2"\0.012))" Into H436 

Put"" Into 1436 


{(Impulse)sl} 

Put "=G416*C414" Into G437 
Put "N/A" Into H437 
Put"" Into 1437 


{(Impulse)vac} 

Put "=C413*C414*L406" Into G438 
Put "N/A" Into H438 
Put"" Into 1438 


{Load Notes} 

Put "Note 1:" Into A423 

Put "Data Is being extrapolated" Into C423 

Put "below range of regression." Into C424 

Put "Note 2:" Into A426 

Put "Data Is being extrapolated" Into C426 

Put "above range of regression." Into C427 

Automatic Recalc 

Invalidate Off 


Into G43f 



Liquid Engines 


Major Variables 

Vacuum Thrust, klbf 
Chamber Pressure, psia 
Mixture Ratio, O/F 
Maximum Area Ratio 


LOX/H2 


512.845 

3,277.0 

6.011 

77.0 


26 January 1993 



100 to 2,000 
1,000 to 5,000 
4 to 8 
10 to 400 


Parameters 

Area Ratio of Nozzle Attachment 
Nozzle Percent Length, % 
Gimbal Angle, degrees 
C* Efficiency 

Fuel Inlet Enthalpy, kcal/mole 


5.0 

80.0 

11.0 

0.98450 

-1.270 


70 to 140 
0 to 15 
0.85 to 0.999 
-2.154 to 1.856 



Vacuum Thrust, klbf 
Vacuum Isp, sec-lbf/lbm 
SL Thrust, klbf 
SL Isp, sec-lbf/lbm 
ODE C-Star. ft/sec 
L-Star. in 

ODE Isp, sec-lbf/lbm 
Energy Release Efficiency 
Kinetic Efficiency 
Divergence Efficiency 
Boundary Layer Efficiency 
Engine Efficiency 


512.845 

452.98 

418.772 

369.89 

7.753.62 

30.40 

468.92 

0.98450 

0.99993 

0.99283 

0.98904 

0.96666 


Throat Diameter, in 
Throat Area, in *2 
Chamber Length, in 
Nozzle Exit Diameter, in 
Engine Diameter, in 
Nozzle Length, in 
Engine Length, in 


W 


Turbomachinery 

Preburners 

PB Hot Gas Manifold 

Thrust Chamber 

Nozzle 

Gimbal Bearing 
Valves and Controls 
Controller and Mount 
POGO System 
Propellant Ducts 
Pressurization System 
Other Engine Systems 


10.3 

83.2 

12.3 

90.3 
96.0 

119.5 

168.0 


Value 


1,725.0 

229.0 

558.0 

859.0 

1,250.0 

105.0 

722.0 

85.0 

94.0 

867.7 

89.0 

228.0 


Total Dry Weight 


6,811.7 


Fiqure63. Printed Output - "Report" - English Units - L0X/H2 





































































































Liquid Engines 

Independent Terms 

Major Variables 

Vacuum Thrust, klbf 
Chamber Pressure, psia 
Mixture Ratio, O/F 
Maximum Area Ratio 

Parameters 

Area Ratio of Nozzle Attachment 
Nozzle Percent Length, % 
Glmbal Angle, degrees 
C* Efficiency 

Fuel Inlet Enthalpy, kcal/mole 


Vacuum Thrust, klbf 
Vacuum Isp, sec-lbf/lbm 
SL Thrust, klbf 
SL Isp. sec-lbf/lbm 
ODE C-Star, ft/sec 
L-Star, in 

ODE Isp. sec-lbf/lbm 
Energy Release Efficiency 
Kinetic Efficiency 
Divergence Efficiency 
Boundary Layer Efficiency 
Engine Efficiency 


LOX/RP 


26 January 1993 


I Value 

2.020.700 
303.10 
1,799.811 
269.70 
5.949.15 
46.71 


Value 


2.020.700 

500 to 3.000 

1,161.0 

500 to 2,000 

2.270 

1.5 to 5 

16.0 

10 to 400 

10.0 


80.3 

70 to 140 

8.4 

0 to 15 

0.93930 

0.85 to 0.999 

-5.570 

-5.658 to -1.682 


■■■■■ 1 ------- 

Dimensions ek 


Throat Diameter, in 

34.6 

Throat Area. ln A 2 

939.4 

Chamber Length, In 

39.4 

Nozzle Exit Diameter. In 

138.3 

Engine Diameter, in 

143.5 

Nozzle Length, in 

155.5 

Engine Length, in 

220.4 

Weights, Ibm 

Value 

> Turbopump and Mount 

4,488.5 

Thrust Chamber 

8.507.0 

Engine Mount 

467.0 

Oxidizer System 

652.0 

Fuel System 

642.4 

Purge System 

38.4 

Controls (Hydraulic) 

193.3 

Controls (Electrical) 

84.6 

Gimbal System Supply 

179.4 

Gas Generator System 

341.2 

Exhaust System 

1,261.6 

Flight Instrumentation 

145.1 

Ignition System 

49.0 

Interface System 

542.3 

Pressurization System 

1,030.0 

Insulation - Permanent 

71.5 

Thermal Insulation Set 

1,182.5 

Total Drv Weight 

19,875.8 


Figure 65. Printed Output - "Report" - English Units - LOX/RP 




























































3/27/93 


—lEsaBi 

Input 

Input 

Parameter 

Value 

Fvac, Klbf 
(25 to 100) 

50.000 

Tc t °K 
(Fixed) 

2.450 

Pc, psia 

(500 to 2,000) 

784 

Epsilon, - 
(100 to 700) 

200 


Nuclear icn gina Weight, Envelope and Performance Function 
(NERVA Derived Prismatic Core) 



Figure 67. 


Sample Output of Nuclear Thermal Rocket Model 






Propulsion System 
Database Figures 


TA3-0428 




Figure 68. Propulsion System Database Opening Screen 




March 27,1993 Propulsion System Menu 

Please click Icon for selected propulsion system 



Figure 69. Main Menu of Propulsion Types 









More 


Summary of Propulsion Systems 


Engine Name 


Space Transportation Main Engine 


Acronym 


STME 



Reports I Date Entry 


Engine Class 

Cryogenic Liquid 


Hydrocarbon Liquid 


F-1A 


F-1A 


Hydrocarbon Liquid 


Cryogenic Liquid 


5 

Simplified, High Performance J-2 

J-2S 

Cryogenic Liquid 

6 

Space Shuttle Main Engine 

SSME 

Cryogenic Liquid 

7 

RD-170 

RD-170 (Russian 
Designation 11D521) 

Hydrocarbon Liquid 

8 

Integrated Modular Engine 

IME 

Cryogenic Liquid 

9 

Space Shuttle Redesigned Solid Rocket Motor 

RSRM 

Solid Fuel 

10 

Nuclear Thermal Rocket, NERVA Derivative 

NTRND 

Nuclear Thermal 


Figure 70. Propulsion Systems Currently Available 








Figure 71. Reports Available for Each Propulsion System 












March 30,1993 


Engine 


Engine Name: Space Transportation Main Engine 

Class of Engine: Cryogenic Liquid 


mm Propellants—^^ 




1 Oxidizer 

I Ca iaI 

|Uquid Oxygen 



iLiauid Hvdroaen 


1 ' 




1 Mixture Ratio - Engine/Thrust Chamber 

1 1 

bToooI 

Nominal Chamber Pressure 
Expansion Ratio 

l 

l 

2^50j 

Engine Design Life (Flights) 

i 

~il 



Mtngme inrusi 

§M L«¥fii 

Vacuum 


Nominal dl 

552,980| 1 

650,0001 


Mavlmtim 1 "" 

j | 

HHHHHl 


1 - 1 


I Minimum 1 "" 

357,9801 | 

455,000| | 


I Thrust data In units of Ibf 




■ i nrome nano, rww 

Sea Level 

Vacuum 


Maximum d 

-—1 d 

1 


Minimum d 

64.70| P 

70.001 



I Sea Level 

Vacuum 

©Nominal Thrust 

I 365.151 

j 429.221 

@Maximum Thrust 

l ] 

r 

_1 



_l 

^Minimum Thrust T 337.95j |- 

Specific Impulse data In units of seconds 


Figure 72. Typical 




ce 1 



Print | Reports fl 


Chemical 



•Engine Restarts' 
Design 

Demonstrated 


• Engine Starts 1 
Design 

Demonstrated 


• Engine Reliability, sec* 
Design 

Demonstrated 


5,50( 


■ Nozzle Data— 
Type I 

Length On) 

Diameter On) 

Throat Area (sq. In) 
Exit Area (sq. in) 
Expansion Ratio 


133.6; 


91.6: 


146.61 


6.600.382: 


45.0: 
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March 31,1993 


Background Information 


Engine Name: Space Transportation Main Engine 

Class of Engine: Cryogenic Liquid __^__ 

Background^ 

Th« STME was designed to support propulsion requirements of the National Launch System NLS “"“P 1 P ” vidCS 

motors. 

ctmf is canable of operating in either a NLS booster or core propulsion application. In either mode, die STME starts 

^ ,h. opemdon of some STME, win bo terminated .nd denied from *• v«b,=l. 

with other elements while other STME's continue to operate. 

I„ the core mode, the STME will continue to opemt. after booster (solid or liquid) repartition until tnbital (or neat orbital) 
conditions are reached. 

The STME is a pump fed liquid oxygen and liquid hydrogen engine that has been designed for high reliability and low cost. It 
The STME is a pum^^ 4 £ ^ ^ ^ turbopump ^wies. Gas generator propellants are 

start is accomplished by use of vehicle propellant tank head pressures. No helium spin start or solid start cartn g q 
The engine provides oxygen and hydrogen gases for propellant tank pressurization. 



Source" 088 STME Technical Information Document. 6 Jan 1993; ICD. 19921 

Source. Draft Contract End , tem specification, Phase C/D, Revision 10, Attachment J-2, 26 May 1992 

Date: Entered as of 31 March 1993 

Entered by: Dan Levack_ — 



March 31,1993 


Propulsion System General Data 


| Creation Date Modification Date | 

Record Number 



1 1 13/31/93 

_ 

i_ 



i __i 




Engine Name 

Class of Engine 

Propulsion Type 

Acronym 

Application 

Manufacturer 

Program Status 

Manrated 

lOC/Date Studied (Month/Year) 

Mixture Ratio - Engine/ Thrust Chamber 

iHlIl i^lMianLilil^lliMHii 


J 

|Crvoqenic Uauid ] (Chemical 


ZD 

IThermodynamlc Expansion of Hot Gas 


ZD 

ISTME 



ZD 

(Booster Enqine 


ZD 

IConsortium (Aerojet, Pratt & Whitney. Rocketdyne) 

ZD 

1 Detailed Study 


ZD 

1 



ZD 

112/1992 



ZD 

1 

6.000( 1 6.99^ 







nvMl 7 »r (Liquid Oxygen_ 

1 




c«*ai iLlauid Hvdroaen 

_1 








Engine Design Life (Flights) 

Restart Capability 

Engine Cycle 

Nominal Chamber Pressure 

|1 .. 

—1 



|No 



1 

iGas Generator 


_1 

HDD 

2,250| 



Expansion Ratio 

TVC Method 

1 . 

45.00| 



iGimbal 



_1 





Maximum Length (Inches) 

Maximum Width (Inches) 

i 

1 , 

161.00| 

101.221 



Engine Mass (Ibm) 

i 

9,100.001 




p Engine Thrust Data, Ibt 

§ Nominal 

1 Maximum 


Sea Level 


I 

552,9801 


1 

1 



357,9801 




I 

650,0001 


r~ 

J 


I 

455,0001 


Minimum 











March si, 1993 Engine Perform; 


Engine Name: Space Transportation Main Engine 

Clase of Engine: Cryogenic Liquid 


iPropellantsi 

Oxidizer 

Fuel 


I Liquid Oxygen 


lUquid Hydrogen 


Mixture Ratio - Engine/Thrust Chamber [ 


IToool 


Nominal Chamber Preseure 
Expansion Ratio 
Engine Design Life (Flights) 


[ 


235(3 


45.00 


1 


Engine Thrust Data* 

Sea Level 

Vacuum 

Nominal 


552,98(3 r 

650,0001 




Maximum 







Minimum 

| 

357,98(3 1“ 

455,000| 


Thrust data in units of Ibf 


Sea Level 

Vacuum 

Maximum ("7 —- 1 1 — 

3 

Minimum 1 — 64 - 7 Pl 1 — 

70.001 


mm Specific Impulse Data— 

< 

a 

Sea Level 

Vacuum 

@Nominal Thrust 1 

364.54| | 

428.501 

@Maxlmum Thrust 1 

1 1 

□ 

@Mlnimum Thrust 1 

336.74J 

“ 428.0(3 

1 Specific Impulse data In units of seconds 


nee 1 











March 31,1993 


Engine Performance 2 



Engine Cycle 


Type 


IGas Generator 


Preeeuree — 

—Oxidizer Turbopump- 
Min Pump Inlet F 

Turbine Inlet F 


_47 

554J 


-Fuel Turbopump 
Min Pump Inlet 
Turbine Inlet 


_3! 

2.196.' 


Pressures In psla 


Envelope 

- Length- 

Nominal 
Stowed 
Extended 
Maximum Glmbal 


Diameter- 

Nozzle Exit 

Maximum 
Maximum Glmbal 


Envelope Dimensions in inches 


Engine Component Masses-^ 

Component AJtocabone 


TurbomacNnery 

Oxygen Turbopump 
Fuel Turbopump 

Combustion Devices 


Combuedon Chamber 
Nozzle 

Qae Gonertoor 

Ignitor* OC 
• OQ 



Controls 

ControAer 

35 


Sensors 

38 

1570 

Valves/Actuators 

214 

1715 

Intsroonneoto 

17 

Pneumabc System 

19 

1225 

Fropeiant Feed 

323 

363 

1001 

1729 

Ducts 

Mecetaieous (System Hardware) 

92 

Support Osvioee 

138 

18 

7 


7 

He* Exchanger 


Engine Totoi 

8100 






March 18,1993 


Start-Up/Shutdown Sequences 


Engine Name: Space Transportation Main Engine 

Class of Engine: Cryogenic Liquid 


Chemical 







March 18,1993 


Start 


Engine Name: Space Transportation Main Engine 

Class of Engine: Cryogenic Liquid 


Thrust Profile 


| | Parameter 74 - Engine lhrust 

1 

\m 

IREEB 







/ 




/ 



/ 
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March 18,1993 


Start 


Engine Name: Space Transportation Main Engine 

Class of Engine: Cryogenic Liquid 






__ 



Ratio (LOX/Fud) 


Profiles 


Chemical 



























March 18,1993 


Technology Development 


Engine Name: Space Transportation Main Engine 

Class of Engine: Cryogenic Liquid 


Chemical 





March 31,1993 


Advanced Development Plan 


Engine Name: Space Transportation Main Engine 

Class of Engine: Cryogenic Liquid 


Chemical 


Advanced Development Plan 


ENG INE DEVELOPMENT PR O GRAM SCHEDULE - 20K VEHICLE_ 






























Figure 74. 

Output for F-1 Propulsion System 



F-1 Propulsion System 
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March 13,1993 


Background Information 


Chemical 


Engine Name: F-1 

Class of Engine: Hydrocarbon Liquid 

Background 

The F-1 rocket engine development was initiated at Rocketdyne in January 1959 under the direction of NASA, MSFCThe F-1 
™as developed to provide the power for the booster flight phase of the Saturn V vehicle A cluster of five engines provided 
7,610,000 lbTof thrust in the fust stage. Sixty-five engines were flown on 13 Saturn V missions between 1967 and 1973 
with 100 percent success. A total of 98 production engines were delivered. 

The F 1 is a single-start fixed-thrust, liquid-bipropellant engine, calibrated to operate at a sea level thrust of 1,522,000 pounds 
IS 2 27 1 nSX2 w.i<U»g » 4ci(l= implto o 1 265.4 »cond,. The ..gi« is a relatively simple d«s.gn asm * hqe,d 
o,v«n»dRP-l (roekei Jrade of keJSe) for propellants. Tbe engine design b soitsble in a single or ™lt,engine 

applieadon w L to, on!, one High,, ,«-if«a,ion rngnimmenb wem esbbibhed and demonsrrared 

at 20 starts for a total of 2,250 seconds. 

The engine features a two-piece thrust chamber that is tubular-walled and regeneratively cooled to the 10:1 expansion ratio 
Diane fnd double-walled and cooled with turbine exhaust gas to the 16:1 expansion ratio plane; a thrust chamber mounted 
turboDumD that has two centrifugal pumps spline-connected on a single shaft driven by a two-stage, direct dnve turbine 
one ^pTeririd proSanU^ts fhat are Eed in pairs to direct the fuel and oxidizer to the thrust chamber, and a hypergohe fluid 
cartridge thft isusld for thrust chamber ignition. Power for the turbopump is supplied by a bipropellant gas 8 enerat ^ S ‘ e "\ 
which bums high pressure fuel and oxidizer from the turbopump to drive the turbine. Turbine exhaust gas, prior to cooling th 
thrust chamber nozzle extension, is directed to a heat exchanger which conditions vehicle tank P«ssunmte (oxygen ^oxidizer 

tank and helium for the fuel tank). Thrust vector changes are achieved by gimbaling the entire engi . g 

located on^he thrust chamber dome, and actuator attach points are provided by two outriggers on the thrust chamber body. The 
RP-1 fuel is used as the working fluid for the gimbal actuators, for the engine control system, and for the turbopump bearing 

lubricant. 

The engine is started using a tank-head start with pressure-ladder sequence. Initially control pressure is supplied from the 
ground 8 Start is initiated by electrically firing the gas generator and nozzle extension pyrotechnie ign.tere and energizr g 
Line control valve start solenoid to open the main oxidizer valves and the gas generator valve. Propellants directed tothegas 
generator from the pump discharges (initially at tank head pressures) are combusted in the gas generator causing pump disch g 
JZS tolcreai All subsequent start sequencing is accomplished by pressure actuated valves respond,ng to bu,Id-up of fuel 

pump discharge pressure. 

Engine cutoff is initiated electrically by energizing the engine control valve stop solenoid. This removes opening pressure and 
2E dosbg pre^re to the pro^Jn. valves. Len closing pressure is applied to the propellant valves, onfices ,n the 
control lines sequence the gas generator valve, oxidizer valves, and fuel valves closed, in that or er. 

Engine production was terminated in 1969. 

Comments i 



Date: 1991 

Entered by: Dan Levack 




March 30,1993 


Propulsion System General Data 


Creation Date 


8/31/92 


Modification Date 


3/30/93 


Record Number 


Engine Name 

Class of Engine 

Propulsion Type 

Acronym 

Application 

Manufacturer 

Program Status 

Manrated 

lOC/Date Studied (Month/Year) 

Mixture Ratio - Engine/ Thrust Chamber 
Pro pedants 

Oxidizer iLIquid Oxygen (MIL-P-255086) 


B,,ai IRP-1 (MIL-P-25576B 


Hydrocarbon Uguid | IChemical_ 


Thermodynamic Expansion of Hot Gas 


Saturn V Booster Engine 


Rockwell International Corporation 


11 Successful Apollo / Saturn Flights 


Sept 1966 


2.27 


Engine Design Life (Flights) 
Restart Capability 
Engine Cycle 

Nominal Chamber Pressure 


Gas Generator 


Expansion Ratio 
TVC Method 

Dl men slons 

Maximum Length (inches) 
Maximum Width (inches) 
Engine Mass (Ibm) 


16.0 


Gimbal 


220.4 

143.5 
18,616.0 


Engine Thrust Data, Ibf 


Nominal 


1,522,00) 


Vacuum 

1,748.20C 


Maximum 


Minimum 









March 13,1993 


Engine Performance 1 


Engine Name: F-l 

Class of Engine: Hydrocarbon Liquid 


Chemical 



Propellants 
Oxidizer 
Fuel 

Mixture Ratio - Engine/Thrust Chamber 


lLlquid Oxygen (MIL-P-255086T 


1 


IRP-1 (MIL-P-2S576B) 


1 


Nominal Chamber Pressure (psla) 

Expansion Ratio 

Engine Design Life (Rights) 


1 _ 

2.2701 


1— 

982) 

1- 

16.00| 



11 


— Engine Thrust Data* 

Sea Level 

Vacuum 

Nominal 

c 

1.522,0081 1 

1.748,2001 




Maximum 

c 

n r~ 

□ 




Minimum 

r~ 

-- i r 

1 

Thrust data In units of Ibf 


>Throttle Ratio, Percent 



Maximum 
Minimum 

Specific Impulse Data 


@Nominal Thrust 
@Maximum Thrust 
@Minlmum Thrust 


Specific Impulse data in units of seconds 


[ 


2.41 Oj 


Sea Level 


Vacuum 

1 

265.401 

C 

304.841 

|- 


r~ 

n 


| 

i 

[_ 

-1 


Engine Restarts 
Design t- 

Demonstrated L 


i Engine Starts 1 
Design 

Demonstrated 


Engine Reliability, s 
Design 

Demonstrated 


Nozzle Datai 


Type [ 


Length On) 

Diameter On) 
Throat Area (sq. in) 
Exit Area (sq. In) 
Expansion Ratio 












March 7,1993 


Engine Performance 2 


Engine Name: F-1 

Class of Engine: Hydrocarbon Uquid 

r-Engine Mass (Ibm) 


Total Mass w/TVC 
Total Mass wo/TVC 


18,616. 


Chemical 


TVC' 


Method 


iGimbal 


Mass (Ibm) 

Max Glmbal Angle (deg) 
Max Glmbal Rate (deg/s) 


Engine Cycle 


Type 


Gas Generator 


Pressures 

— Oxidizer Turbopump 
Min Pump Inlet C 

Turbine Inlet F 


945.1 


-Fuel Turbopump 
Min Pump Inlet 
Turbine Inlet 


24.31 


945.1 


Envelope 

- Length- 

Nominal 
Stowed 
Extended 
Maximum Glmbal 


Pressures In psia 


220 .' 


Diameter- 

Nozzle Exit 
Maximum 
Maximum Glmbal 


140.01 

143.51 


Envelope Dimensions in inches 


Engine Component Masses 


TTiruet Chamber 
Engine Mount 
Oxidizer bye tern 
Fuel System 
purge 8ye« 

Contra* (Hydraulic) 
Control# (Electrical) 
Glmbal System Supply 
Oae Generator System 
Exhauet System 
PtUlht lnetm mentation 
Ignition System 
Interface System 


Insulation * Permanent 
Thermal bteuiaOon Set 

Total Dry Welaht 


8 , 506.8 

467.0 

652.0 

642.4 

30.3 

163.3 

•4.6 

176.6 
341.0 

663.7 

145.2 
4V.0 

642.3 
1,030.0 

71 M 
1 . 1 * 3.4 

16.613.2 









February 20,1993 Start-Up/Shutdown Sequences 




February 2o, 1999 start-Up/Shutdown Profiles 


Engine Name: F-i 

Class of Engine: Hydrocarbon Liquid 


Thrust Profile 


Chemical 



Shutdown 







February 20,1993 


Start-Up/Shutdown Profiles 









February 20,1993 


Interf 






I 



Onto* •< 

WMfM QnNMy,(bl4 


vtsassusesgsr 









































February 20,1993 


Technology Development 


Engine Name: F-1 

Class of Engine: Hydrocarbon Liquid 


Chemical 




Percent Cost 


March 24,1993 


Advanced Development Plan 


Engine Name: F-1 


Class Of Engine: Hydrocarbon Liquid 

Chemical 
































Figure 75. 

Output for F-1A Propulsion System 



F-1A Propulsion System 



o 
o o 

O N 

O o 
o CM 
CO CD 

t-~ CM 


h- 00 

0> CM 
CD O 
CM CO 



o 

O 

o 

m 


o 



CM 

• 

<0 

• 

o 

00 

** 

CM 


CM 

o 



CM 

T m 




Advanced Propulsion Subsystem Concepts Database 





























Advanced Propulsion Subsystem Concepts Database 













March 13,1993 Background Information 


Engine Name: 

F-1A 


Class of Engine: 

Hydrocarbon Liquid 

Chemical 


- Background^ 

The F-l A engine is an uprated version of the F-l engine originally used as the first-stage booster propulsion system for the 
Saturn V launch vehicle. The engine produces a sea level thrust of 1,800,000 pounds vs. 1,522,00 for the F-l. Functionally, 
the engine is identical to the F-l. Refer to the F-l background information sheet for a general description of the engine 

configuration and operation. 

During the late 1960’s the F-l engine development program was actively pursuing upgrades and improvements on the 
flight-certified production engine. The most significant improvement was to the Mark 10 turbopump. Pump design 
modifications included reducing the turbine diameter from 35 to 30 inches, material changes to improve producibility and 
structural improvements to permit operation at higher power levels. These changes gathered over 15,000 seconds of test 
maturity in both component and engine tests. A 1,800,000 pound sea level thrust capability was demonstrated on two F-1A 
configuration development engines using the improved turbopump (Mark 10A). 

Step throttling of the engine from 1.800K to 1,350K and a condition monitoring system (CMS) are options which can be 
provided with the engine. CMS would enable holddown/shutdown capability on the launch pad and, dependent on vehicle 
configuration and mission requirements, engine out capability. 

A NASA-MSFC funded study in 1992 concluded F-1A production could readily be restarted (at substantially less cost than a 
new center line engine) using "state-of-the-practice" manufacturing processes. Five spare F-l flight engines in bonded storage at 
the Michaud Assembly Facility could be converted to the F 1A configuration to be used as "pathfinders" for assembly and test 
stand activation. Engine test facilities capable of testing the F-1A engine exist at USAF Phillips Lab m California; NASA s 
Marshall Space Flight Center in Huntsville, Alabama; and at Stennis Space Center in Mississippi. 




March 30,1993 


Propulsion System General Data 



Record Number 


1 


Engine Name 

Class of Engine 

Propulsion Type 

Acronym 

Application 

Manufacturer 

Program Status 

Manrated 

lOC/Date Studied (Month/Year) 

Mixture Ratio — Engine/ Thrust Chamber 
^Propellants' 

Oxidizer 


I Hydrocarbon Liquid - ! IChemical 


I Thermodynamic Expansion of Hot Gas 


|F-tA 


Booster Engine 



[Yes 


I March 1969 (Testing Completed) 


c 


2^3 C 


Liquid Oxygen (MIL-P-255086) 


Fuel IRP-1 (MIL-P-25576BI 


Engine Design Life (Flights) 
Restart Capability 
Engine Cycle 

Nominal Chamber Pressure 





[Gas Generator 


TTeil 



Expansion Ratio 

TVC Method 
^Dimensions 
Maximum Length (Inches) 
Maximum Width (Inches) 
Engine Mass (Ibm) 

gm Engine Thrust Data, Ibf 

Nominal 
Maximum 
Minimum 


Sea Level 

| 1.8Q0i00il 


Vacuum 

2.020.7001 


[ 


I 1,350|00il 


] [ 


1.570,700| 




March 13,1993 


Engine Name: 


Engine Perform 


F-1A 


Class of Engine: Hydrocarbon Liquid 


IRP-1 (MIL-P-25576B) 


i Propellantsi 

Oxidizer 

Fuel 


Mixture Ratio - Engine/Thrust Chamber 


Nominal Chamber Pressure (psla) 

Expansion Ratio 

Engine Design Ufe (Flights) 

■ Engine Thrust 

Sea Level 


Oxygen (MIL-P-255086) 


Nominal 


1,800,001 


Vacuum 

2,020,701 


2.271 


1,161 


16.0 



Maximum 


Minimum 


1.350,001 


1,570,70* 


Thrust data In units of Ibf 


Throttle Ratio, Percent . 

Sea Level 


Maximum 

Minimum 


100 . 0 < 

75.01 


Vacuum 

IQO.Ot 

TTfl 


Specific Impulse Datai 


@Nominal Thrust 
@Maxlmum Thrust 


269.71 


Vacuum 

302.77 


@Minimum Thrust 


Specific Impulse data In units of seconds 


nee 1 




'Engine Restarts* 
Design 

Demonstrated 


'Engine Starts* 
Design 

Demonstrated 


'Engine Reliability, sec* 
Design 

Demonstrated 


2,251 

7/75: 


• Nozzle Data— 
Typa I 

Length On) 

Diameter On) 

Throat Area (sq. In) 
Exit Area (sq. in) 
Expansion Ratio 


Beil. Tubular Wall 


158.01 


138.21 


961.01 


15,371 


16.01 









March 7,1993 


Engine Performance 2 









HIFUPURIP Dm M3UIH 

Thrust ClttmbM 

Enflns Mount 

OxxUatr System 
ru«J System 

Purge System 

Controls (Hydraulic) 

Control* (ElsctrtcsJ) 

QtmboJ System Supply 

Om Generator Swua 

Exhaust SrtWra 

FHitit Instrumentation 

Ignition i*yatern 

Interttca System 

Praaourts>Uon System 

Insulation - Permanent 

Thermal Insulation Set 

4,4 00.0 

8.500.8 

407.0 

853.0 

043.4 

30.3 

103.3 

04 0 
170.5 
341.0 

1.261.6 

145.2 
40.0 

542.3 
1.030.0 

71.0 

1,183.4 



Total Drv WeUtht 

(0.073.4 








February 20,1993 start-Up/Shutdown Sequences 


Engine Name: F-1A 

Class Of Engine: Hydrocarbon Liquid 


Chemical 



■■Startup Sequence 


_ Shutdown Sequence 


Start Saquanca 
Engine control valve atari algnal 
| Oxidizer vatvee open 
| Qae generator vatvee open 
| Qaa generator Ignition 


| Igniter fuel valve opene 
| Throat chamber Ignition 
Fuel vatvee open HH| 


Ground hydraulic supply doeed 


^Matnategei 


2 3 4 

Time From Start 8lgnai (eee) 




0 


3 






February 20,1993 Start~Up/ShU 


Engine Name: F-1A 

Class of Engine: Hydrocarbon Liquid 



Time From Engine Control Valve 
Actuation Signal (sec) 


Flowrate Profile 


down Profiles 


Chemical 


1 


Shutdown 



110 




^ 100 

—\ Cutoff Impulse 



£ 90 

- \ 620,000 ± 24,000 lb-sec 



| 80 

- \ 



= 70 




o 60 

\ 



1 50 

\ >— Nominal 



£ 40 




30 




« 20 




2 io 








h- 0 

i i i _ \ _j _i_uA— 



< 

1 * ■ —- ^ 

ai 02 0.3 oa 0.5 0.6 0.7 5.5 



Time From Shutdown Signal* (sec) 






February 2o, 1993 Start-Up/Shutdown Profiles 


Engine Name: F-1A 

Class of Engine: Hydrocarbon Liquid 


Chemical 


Isp Profile 





March 27, 1993 


Engine Name: F-1A 

Class of Engine: Hydrocarbon Liquid 


Interfaces 1 


OxMlxor Pump nequfromenlo 
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February 20,1993 


Technology Development 


Engine Name: F-1A 

Class of Engine: Hydrocarbon Liquid 


Chemical 





February 20,1993 


Advanced Development Plan 


Engine Name: F-1A 

Class of Engine: Hydrocarbon Liquid 


Chemical 





Figure 76. 

Output for J-2 Propulsion System 



J-2 Propulsion System 
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March 7,1993 


Background Information 


Chemical 


Engine Name: J-2 

Class of Engine: Cryogenic Liquid 

Background' 

The J-2 engine was developed to provide the power for the SIVB stage of the Saturn IB vehicle and for the SII and SIVB stages 
of the Saturn V vehicle. 

The J-2 rocket engine is a high-performance, multiple-restart engine that uses liquid oxygen for oxidizer and liquid hydrogen for 
fuel. Each propellant is pumped into the thrust chamber by separate gas-turbine-driven, direct-drive turbopumps. The wo 
turbopumps are powered in series by a single gas generator that uses the same propellants as the thrust chamber. The hmst 
chamber is tubular-walled and is regeneratively cooled by circulating fuel through the tubes before the fuel is ijjected .mtor the 
combustion area. The engine has a refillable start tank from which pressurized gaseous hydrogen is routed to the ‘“^P^p 
turbines for starting the engine. This feature, combined with the augmented spark ignition system, makes the J 2 a multi- 

engine. 

The J-2 engine envelope is 80.75 inches in diameter and 133 inches long and the engine weighs approximately 3,492 pounds 
dry Thrusfvector consol is achieved by gimbaling the entire engine. The gimbal is installed at the center of the thrus chamber 
injector dome, and gimbal actuator attach points are located on the thrust chamber body. The rocket engine comprises the 
propellant feed system, gas generating system, start system, ignition n system, control system, purge system, an e lg 

instrumentation system. 


■ Comments' 

No Comments. 



Source 6 " 068 Technical Data J-2 Rocket Engine, Change No. 12 (R-3825-1). Technical Data J-2 Rocket Engine 
(R-3825-1A) 

D a t e: 18 October 1972, 4 December 1973 

Entered by: Dan Levack 




March 30,1993 


Propulsion System General Data 


Creation Date Modification Date 

1 13/30/93" 


Record Number 


8/31/92 



3 


Engine Name 

Class of Engine 

Propulsion Type 

Acronym 

Application 

Manufacturer 

Program Status 

Manrated 

lOC/Date Studied (Month/Year) 

Mixture Ratio - Engine/ Thrust Chamber 
pn Propellants i 


ICrvooenlc Uauid 1 I Chemical 


1 


iThermodynamlc Expansion of Hot Gas 




|J-2 



Fuel 




Liquid Oxvaen 

1 

iLiquid Hydrogen 

-1 



Engine Design Life (Flights) 
Restart Capability 


[Yes 


Engine Cycle 

Nominal Chamber Pressure 

|uas uwiiwicuvi 

1 7801 


Expansion Ratio 

1 27^3 


[Glmbal 


l 

TVC Method 




I Maximum Length (Inches) 

I Maximum Width (inches) 

1 Engine Mass (Ibm) 

| 133.00| 

8L00| 

1 4,050.00| 





■ Engine Thrust Data, idt— 

Sea Level 

Vacuum 


Nominal 

1 161^41 d 

230,0001 


Maximum 

1 161,548| d 

230,0001 


Minimum 

1 113,5481 d 

182,0001 







1 


Chemical 



1 

1 

3 


r Engine Restarts^™ 
Design L 

Demonstrated L 


I—Engine Starts* 
Design 

Demonstrated 


m 


r Engine Reliability, sec 

Design I 3 r 75 Ql 

Demonstrated I -* 


Nozzle Data— 

Type I 

Length (in) 

Diameter (in) 

Throat Area (sq. in) 
Exit Area (sq. In) 
Expansion Ratio 


Bell, Tubular Wal^ 

I Z =Z3 


I 77?00| 

I 16973 



4,609.05 








March 7, 1993 


Engine Performance 2 


Engine Name: J-2 

Class of Engine: Cryogenic Liquid 


Chemical 



^Engine Mass (Ibm) 


Total Mass w/TVC 
Total Mass wo/TVC 


3,492-Oj 


Mass (Ibm) l 

Max Gimbal Angle (deg) 

Max Gimbal Rate (deg/s) 



■ Engine Cycle 
Type 

■—Pressures 
,— Oxidizer Turbopump 
Min Pump Inlet L 
Turbine Inlet 


33 


89.3| 


- Fuel Turbopump— 
Min Pump Inlet £ 

Turbine Inlet 


m 


nu 


Pressures in psia 


— Envelope' 


j— Length --— 

Nominal 


133! 

Stowed 

1 

_=1 

Extended 

1 

” 1 

Maximum Gimbal 

1 

~1 




r— Diameter' 


Nozzle Exit 
Maximum 
Maximum Gimbal 


L 


80.8| 


Envelope Dimensions In inches 









March 7,1993 start-Up/Shutdown Sequences 


Engine Name: J-2 

Class of Engine: Cryogenic Liquid 


Chemical 


Startup Sequence' 
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Start-Up/Shutdown Profiles 


Engine Name: J-2 

Class of Engine: Cryogenic Liquid 


Thrust Profile 


uwmmmssssMm 
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Start 



Mixture Ratio Profile 


own Profiles 
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Engine Name: J-2 

Class of Engine: Cryogenic Liquid 


Interfaces 
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March 13, 1993 


Technology Development 



Technology 

J -2 Test Experience 





March 24,1993 


Advanced Development Plan 



Advanced Development Plan 
































Figure 77. 


Output for Simplified, High 
Performance J-2 (J-2S) Propulsion 

System 



J-2S Propulsion System 
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March 7,1993 Background Information 


Engine Name: 

Simplified, High Performance J-2 


Class of Engine: 

Cryogenic Liquid 

Chemical 





March 30, 1993 


Propulsi 



Creation Date 


5/18/92 


Modification D 


3/30/93__ 


Engine Name 

Class of Engine 

Propulsion Typa 

Acronym 

Application 

Manufacturer 

Program Status 

Manrated 

lOC/Date Studied (Month/Year) 

Mixture Ratio - Engine/ Thrust Chamber 

r Propellants —— 

Oxidizer lUauld Oxygen — 


Fuel 


I Liquid Hydrogen 


Engine Design Life (Flights) 
Restart Capability 
Engine Cycle 

Nominal Chamber Pressure 


Expansion Ratio 
TVC Method 

h Dimensions—i™— 
Maximum Length (Inches) 
Maximum Width (Inches) 
Engine Mass (Ibm) 


■ Engine Thrust Data, lbf«“ 



System General Data 


Record Number 




Sea Level 


Vacuum 






March 13,1993 


Engine 


Engine Name: Simplified, High Performance J-2 

Class of Engine: Cryogenic Liquid 


i Propellantsi 

Oxidizer 

Fuel 


I Liquid Oxygen 


lUquid Hydrogen 


Mixture Ratio - Engine/Thrust Chamber [ 


Tsool 


Nominal Chamber Pressure (psia) 

Expansion Ratio 

Engine Design Life (Flights) 


1,2001 


40.01 


30 


■■Engine Thrust Data- 

Sea Level 

Vacuum 

| Nominal 1 

196,9031 | 

265,0001 

1 Maximum l~ 

_11 IZ 

__l 


| Minimum 1 _ 

i r 

j 

Thrust data in units of Ibf 



p-T hrottle Ratio, Percent' 


Sea Level 


Vacuum 


Maximum 

Minimum 


1 

Zl i . 

1 

1_ 

.j i 

I 


Specific Impulse Data 


@Nominal Thrust 
@Maximum Thrust 
@Minimum Thrust 


Sea Level 

Vacuum 

I 32il^ 1 

433.081 

i J d 

__l 


1 n [ 

_1 


Specific Impulse data In units of seconds 


M 







Engine Name: 


Simplified, High Performance J-2 


Class of Engine: Cryogenic Liquid 


Engine Mass (ibm) 


Total Mass w/TVC 
Total Mass wo/TVC 


Chemical 



TVC 


Method 


iGimbal 


Mass (Ibm) 

Max Gimbal Angle (deg) 
Max Gimbal Rate (deg/s) 


Engine Cycle 


Type 


I Tap-Off Turbine Drive 


Pressures 

— Oxidizer Turbopump 
Min Pump Inlet C 


Turbine Inlet 


115J 


- Fuel Turbo pump 
Min Pump Inlet 


Turbine Inlet 


1,021 


Envelope-^^^— 

- Length- 

Nominal 
Stowed 
Extended 
Maximum Gimbal 


Pressures in psla 


Diameter- 

Nozzle Exit 
Maximum 
Maximum Gimbal 


Envelope Dimensions In inches 


Engine Component Masses 
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March 7,1993 


Start-Up/Shutdown 







March 7,1993 


Start-Up/Shutdown Profiles 







March 7,1993 


Engine Name: Simplified, High Performance 

Class of Engine: Cryogenic Liquid 


Interfaces 


Chemical 



























March 7,1993 


Technology Development 


Engine Name: Simplified, High Performance J-2 

Class of Engine: Cryogenic Liquid 


Chemical 



March 7,1993 Advanced Development Plan 


Engine Name: 

Simplified, High Performance J-2 


Class of Engine: 

Cryogenic Liquid 

Chemical 





Figure 78. 

Output for Space Shuttle Main 
Engine (SSME) Propulsion System 



SSME Propulsion System 
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February 22,1993 


Background Information 


r 


Engine Name: Space Shuttle Main Engine 

Class of Engine: Cryogenic Liquid 


Chemical 


pa Background' 

to be kept within design limits. The engines are gimbaled to provide pitch, yaw and roll controldurmg the orb.ter boost 
phases. Gaseous hydrogen and oxygen are tapped off the engine for pressunzmg the external tank. 

A staced combustion power cycle coupled with high combustion chamber pressures is employed. In the SSME staged 

Input Notes: „ _ _ 

The performance characteristics given here are for the Flight-Phase 11 Configuration. 

Demonstrated life - The number of seconds shown represent all the components except the high pressure fuel turbopump 
fHPFTF) and the high pressure oxidizer turbopump (HPOTP). The number is for the least demonstrated time among tho 
(HPFTP) JP f thc components have been demonstrated for 15,000 seconds and the rest for 10,000 

2S“o, £ HPOTP, 83% of the component have been demonataled for 15,000 seconds and the rw for 10,000 seconds. 

LPFTP - low pressure fuel turbopump 
HPFTP - high pressure fuel turbopump 
LPOTP - low pressure oxidizer turbopump 
HPOTP - high pressure oxidizer turbopump 
MFV - main fuel valve 
MOV - main oxidizer valve 
FPOV - fuel preburner oxidizer supply valve 
OPOV - oxidizer prebumer oxidizer supply valve 
CCV - coolant control valve 
FBV - fuel bypass valve 
OBV - oxidizer bypass valve 
MCC - main combustion chamber 

■ Commentsi 

No Comments. 




References RD87 . 142 CPIA/M5 (Oct 1985), Space Shuttle Orbiter Vehicle/Main Engine Interface Control 
Souro * : ££ ”co.i3M15«)Cl”.v vi. Space ShcPk, Main Engine Pock.. Date (RSS-8559-10. 

Date: 6-1-1991,10/85,13 July 1989, 22 August 1984 

Entered by: J- A. McClanahan, Dan Levack 


March 30,1993 


Propulsion System General Data 



Creation Date 


4/20/92 


Modification Date 


3/29/93 


Record Number 


Engine Name 

Class of Engine 

Propulsion Type 

Acronym 

Application 

Manufacturer 

Program Status 

Manrated 

lOC/Date Studied (Month/Year) 

Mixture Ratio - Engine/ Thrust Chamber 
Propellants— 

Oxidizer ILlcuid Oxygen — 


Fuel 


iLlauid Hydrogen 


Engine Design Life (Flights) 
Restart Capability 
Engine Cycle 

Nominal Chamber Pressure 

Expansion Ratio 

TVC Method 
i Dimensions— 

Maximum Length (Inches) 
Maximum Width (inches) 
Engine Mass (Ibm) 


-Engine Thrust Data, Ibf— 

Nominal 

Maximum 

Minimum 


Space Shuttle Main Engine 


I Cryogenic Liquid I Chemica l 

IThermodvnamic Expansion of Hot Gas 




tCfeTile^ A I E tS 5B 



6.011 


6.03- 



Staqed Combustion 
I 3^0281 


77.51 



168.0( 
90.0( 
6.979.01 


375,00- 


418,30- 


209,20- 


Vacuum 

469,00C 


512,30( 


303,201 








March 13,1993 


Engine Performance 1 


Engine Name: Space Shuttle Main Engine 

Class of Engine: Cryogenic Liquid 


Chemical 


Propellants 

Oxidizer 

Fuel 


Liquid Oxygen 
I Liquid Hydrogen 


Mixture Ratio - Engine/Thrust Chamber 


Nominal Chamber Pressure (psia) 

Expansion Ratio 

Engine Design Life (Flights) 

Engine Thrust Data^^^^^^^^^“ 


Nominal 

Maximum 


Minimum 


375,00' 

418,30' 


209,20' 


Thrust data in units of Ibf 


Throttle Ratio, Percent 


Maximum I_ 

Minimum I 


— Specific Impulse Data' 


@Nominal Thrust 
@Maxlmum Thrust 
@Minimum Thrust 


111.31 

56.1i 


362.4! 


370.3' 

311.9' 


Vacuum 

469,00( 
512,301 
303,201 


6.011 


3,021 

77^51 


Vacuum 

109.0 

65"0 


Vacuum 

453.30 
453.6C 
452.1C 


I 6l034| 


Engine Restarts' 
Design 

Demonstrated 


• Engine Starts 01 
Design 

Demonstrated 


Nozzle Data 


Specific Impulse data In units of seconds 


Length (in) 

Diameter (in) 
Throat Area (sq. in) 
Exit Area (sq. in) 
Expansion Ratio 


27,001 


Bell, Tubular Wal 













Total Mass w/TVC 
Total Mass wo/TVC 


■ Engine Cycle 
Type Staged Combustion 


Pressures — 

—Oxidizer Turbopump 
Min Pump Inlet C 


Turbine Inlet 


4,924.1 


-Fuel Turbopump 
Min Pump Inlet 

Turbine Inlet 


4,932. 


Pressures in psla 


Envelope 

- Length-- 

Nominal 
Stowed 
Extended 
Maximum Gimbal 


Engine Component Masses 


Diameter- 

Nozzle Exit 
Maximum 
Maximum Gimbal 


Envelope Dimensions in inches 


Turbo machinery 
Pre burner* 

PIS Hot Oa* Manlfaid 
Thrust Chamber 
No sale 

Otmbal Bearing 
Valves and Control* 
Controller and Mount 
POOO System 
Propellant Ducts 
Pressurization System 
Other Engine Systems 


Total Dry Weight 






February 20,1993 Start-Up/Shutdown Sequences 




















Mixture Ratio Profile 













Engine Inlet Temperature, ° 


February 22,1993 


Interfaces 






February 22,1993 


Technology Development 



Technology Development 




March 27,1993 


Advanced Development Plan 


Engine Name: Space Shuttle Main Engine 

Claes of Engine: Cryogenic Uquid 


Chemical 


AHvanced Develooment Plan 



V ASSEMBLY COMPLETE DATES 
O NEED DATEOFENGNB3 TO SUPPORTO REUTERS 


























Figure 79. 

Output for RD-170 Propulsion 

System 



RD-170 Propulsion System 
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February 22,1993 


Background Information 


Chemical 


Engine Name: RD-170 

Class of Engine: Hydrocarbon Liquid 


mm Background 

The RD-170 is the most powerful rocket engine currently in production anywhere in the world, and it is used as the strap-on 
booster on the Energyia heavy-lift launcher and (in the RD-171 variant) on the first stage of the Zenit launcher. It is a 
4-combustion chamber engine driven by a single turbopump assembly. 

Engine development was started in 1976 and the first flight of the RD-171 occurred during the first launch of a Zenit booster in 
1985. The first flight of the RD-170 occurred in May 1985 as the booster engine on Energiya. 

The West is aware of two successful unmanned Energiya launches, and one flight failure of a Zenit launcher is known to have 
occurred in the fall of 1990, which is believed to be related to a failure of the RD-171 engine. 


Reference Sources: 

1. "RD-170—Super Powered Liquid Propellant Rocket Engine of New Generation", by F. Chelkis, obtained September 1990. 

2. “The RD-170 Liquid Rocket Engine", NPO Energomash publication, undated. 

3. Letter, F. Chelkis to W. Ezell, August 28, 1991. 

4. Technology Detail Special Report 2, "USSR Rocket Engines, second edition", January 1992, by Technology Detail, 99 
Kingsway North, Clifton, York Y03 6JH, United Kingdom. 



Comments 




March 30,1993 


Propulsion System General Data 


Creation Date 


12/11/92 


Modification Date 


3/29/93 


Record Number 


Engine Name 

Class of Engine 

Propulsion Type 

Acronym 

Application 

Manufacturer 

Program Status 

Manrated 

lOC/Date Studied (Month/Year) 

Mixture Ratio - Engine/ Thrust Chamber 

PrOpellantSaaHaaBm^^^— 

Oxidizer iLiquid Oxygen 


[RD-170 


Kerosene 


Hydrocarbon Liquid | IChemicai 


Thermodynamic Expansion of Hot Gas 


RD-170 (Russian Designation 11D521 


Booster Engine for Energiya 


NPR Energomash 


Two successful flights, one flight failure 


Yes (but not yet flown manned 


May 1987 


2,63 


Engine Design Life (Rights) 
Restart Capability 
Engine Cycle 

Nominal Chamber Pressure 


(Staged Combustion 
I 3^561 


Expansion Ratio 
TVC Method 

DlmensionsaMMM 

Maximum Length (Inches) 
Maximum Width (Inches) 
Engine Mass (Ibm) 


36.81 


IGimbal 


158.0( 

56.3( 

23.507.CK 


Engine Thrust Data, ibf 


Nominal 


1,630,54! 


Vacuum 

1,776,926 


Maximum 


1,719,391 


1.865.77J 


Minimum 


742 , 08 : 


888 . 46 : 















March 13,1993 


Engine 


Engine Name: RD-170 

Class of Engine: Hydrocarbon Liquid 


i Propellantsi 

Oxidizer 

Fuel 


lUquid Oxygen 


IKeroaene 


Mixture Ratio - Engine/Thrust Chamber [ 




Nominal Chamber Pressure (psla) 

Expansion Ratio 

Engine Design Life (Flights) 


3,556| 


36 ! 80 | 


C 


m 


hi Engine Thrust Data— 

Sea Level 

Vacuum 

Nominal L_ 

1,630,545) I 

1,776,9261 

Maximum 1 

1,719,39l| | 

1,865,7721 

Minimum 1 

742,0821 

888,4631 

Thrust data in units of ibf 



r-Throttle Ratio, Percent' 


Sea Level 


Vacuum 


Maximum 

Minimum 


1-C= 

105.001 

1_1 I_ 

49.001 


■ Specific Impulse Data 

@Nominal Thrust 
@Maxlmum Thrust 
@Mlnlmum Thrust 


Sea Level 

Vacuum 

l—- 

309.241 | 

337.00| 


_i r 

_J 

1 

1 

1 L 

J 


Specific Impulse data In units of seconds 


ince 1 


Chemical 


™ Engine Restarts" 
Design 

1 

=□ 

Demonstrated 

1 

o| 




p- Engine Starts— 



Design 

l 


Demonstrated 

1_ 

isi 


^Engine Reliability, sec* 

1 


Design 

1 - 

1,650| 

Demonstrated 


“ 2,5671 



1 Type 1 Bell with helical slotted linerl 

Length (in) 


” 70.od 

Diameter (In) 

1 n 

” 112.601 

Throat Area (sq. In) 

n 

" 270.601 

Exit Area (sq. in) 

in 

9,958.08| 

Expansion Ratio 


36.80i 





February 20,1993 


Engine Performance 2 


Engine Name: RD-170 

Class of Engine: Hydrocarbon Liquid 


Chemical 


* Engine Mass 


Total Mass w/TVC 

I 23,507.o| 

Total Mass wo/TVC 

| 140.4 


mm JVC 


Method 


Gimbal 


Mass (Ibm) 

Max Gimbal Angle (deg) 
Max Gimbal Rate (deg/s) 


c 


8.01 



» Envelope' 


|— Length--- 


r— Diameter-— - 

Nominal 1 58 1 


Nozzle Exit 56.31 

Stowed - J 


Maximum | 

Fxtended 


Maximum Gimbal 1 

Maximum Gimbal 1 




Envelope Dimensions in inches 


Engine Component Masses 
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February 20,1993 


Start-Up/Shutdown Profiles 







February 20,1993 


Start-Up/Shutdown 



Mixture Ratio Profile 






February 22,1993 









February 20,1993 


Technology Development 


Engine Name: 

RD-170 


Class of Engine: 

Hydrocarbon Liquid 

Chemical 





February 20,1993 Advanced Development Plan 


Engine Name: 


RD-170 


Class of Engine: Hydrocarbon Liquid 


Chemical 


Advanced Development Plan 



Figure 80. 

Output for Advanced LOX/H2 Engine 
(IME) Propulsion System 


TA3-0317 



IME Propulsion System 
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March 7,1993 


Background Information 


Engine Name: 


Integrated Modular Engine 


Class of Engine: Cryogenic Uquid 


Chemical 


■ Background— 

An Integrated Modular Engine system design was developed which meets Air Force National Launch System Upper Stage 
design requirements. The resulting Integrated Modular Engine (IME) is a 30,000 lb thrust L02/LH2 propulsion system powered 
by a hybrid expander cycle using three bell thrust chambers and two turbopump sets. The modular design is adaptable to a wide 
range of applications via adding additional thrust chamber and turbopump modules. The propulsion system attributes include 
enhanced performance, operability, and reliability. Specific impulse performance is 480 seconds vacuum. Propulsion system 
launch operability is enhanced as the system requires loading only two fluids on the pad: L02 and LH2. Reliability 
improvements include a simple design with no pneumatics, hydraulics or helium purges and a backup turbopump module. In 
addition, gaseous hydrogen and oxygen for tank pressurization could also be used to supply small GH2 and G02 RCS thrusters, 
eliminating the need for a storable propellant (hydrazine) RCS system on the stage. 

Quality Function Deployment methodology was used to refine propulsion requirements, evolve design strategies and develop an 
exceptionally capable propulsion system. The IME study identified technology programs, described risks and minimization via 
backup positions and presented a cost effective development program. Engine average unit cost is estimated to be about S2.6M 
and a development program cost is estimated to be about $45M. 


Comments 

No Comments. 


m References 

Source: RI/RD92-134 (Operational Integrated Modular Engine Study) 


Date: 


3-4-93 


Entered by: T. J. Harmon 
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Propulsion System General Data 


Creation Date 


Modification Date 


Record Number 


112/11/92 


] 13/29/93 


Engine Name 

Class of Engine 

Propulsion Type 

Acronym 

Application 

Manufacturer 

Program Status 

Manrated 

lOC/Date Studied (Month/Year) 

Mixture Ratio - Engine/ Thrust Chamber 
Propellants' 


Fuel 


Engine Design Ufe (Flights) 
Restart Capability 
Engine Cycle 

Nominal Chamber Pressure 


[ 


8 


(Integrated Modular Engine - 1 

ICrvooenic Liquid | iChemical 

-1 

iThermodvnamic Expansion of Hot Gas -! 

|IME -J 

lAir Force UDDer Stage 

-1 

iConceotual Enaine (Rocketdyne Study) 

“1 

IStudv: RI/RD90-134 

n 

1 ____ 

~i 

11 May 1992 -J 


6 . 000 | [ 




[Liquid Oxygen 

i 

iLiquid Hydrogen 

~i 


] 


[Hybrid: Fuei Side Expander, Oxid Side Prebumer 

I 1.746j 


Expansion Ratio 

TVC Method 
■ Dimensions' 

Maximum Length (inches) 
Maximum Width (Inches) 
Engine Mass (Ibm) 

















March 13,1993 


Engine 


Engine Name: Integrated Modular Engine 

Class of Engine: Cryogenic Liquid 


— Propellants^— 



Oxidizer 

(Liquid Oxygen 




Fuel 

lUquid Hydrogen 




Mixture Ratio - 

Engine/Thrust Chamber I 

6.0001 


Nominal Chamber Pressure (psla) I 1 t 74 ^ 

Expansion Ratio 1 . ? 00 00 i 

Engine Design Life (Flights) I 31 

•m Engine Thrust Data-^^^^™*"*"™^^— 


Sea Level Vacuum 
Nominal I is.393| I 3Q,ooo| 

Maximum I I I I 

Minimum I I I I 

Thrust data In units of Ibf 


—Throttle Ratio, 

Sea Level 

Vacuum 

Maximum 

1 ~ 1 1 

1 




Minimum 

1 1 c 

1 





— Specific Impulse Data 

@Nominal Thrust 
@Maxlmum Thrust 
@Minimum Thrust 


Sea Level 

Vacuum 

1 

246281 L 

480.001 

1_ 

."i r 

_ _n 



1 L 

i 


Specific Impulse data In units of seconds 







March 7,1993 


Engine Performance 2 


Engine Name: 


Integrated Modular Engine 


Class of Engine: Cryogenic Liquid 


Engine Mass (Ibm) 


Total Mass w/TVC 
Total Mass wo/TVC 


1 . 048 . 


Chemical 


TVC 


Method 


Differential Throttling 


Mass (Ibm) 

Max Glmbal Angle (deg) 
Max Glmbal Rate (deg/s) 


Engine Cycle 

Jype I Hybrid: Fuel Side Expander. Oxid Side Prebumer 


Pressures 

— Oxidizer Turbopump 
Min Pump Inlet C 

Turbine Inlet F 


4 , 843 . 


- Fuel Turbopump 
Min Pump Inlet 


Turbine Inlet 


2 , 847 . 


Envelope— 

- Length- 

Nominal 
Stowed 
Extended 
Maximum Glmbal 


Pressures in psia 


Diameter- 

Nozzle Exit 
Maximum 
Maximum Glmbal 


Envelope Dimensions in inches 


■ Engine Component Masses 1 — 

Component Mass. Ibm 

Thrust Chambers (3) 
Turbomachinery - High Pressure (4) 
Turbomachinery - Low Pressure (4) 
Propellant Valves, Ducts, Flanges 
External LH2 Feed Line 
Thrust Mount Cap 


502 

102 

28 

211 

20 

3 


Preburner (2) 

GOX Heat Exchanger (2) 

Controller 

Harness and Sensors 
Ignition System 

Misc Components and Contingency 





Start-Up/Shutdown Sequences 
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Start-Up/Shutdown Profiles 
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Technology 


Engine Name: Integrated Modular Engine 

Class of Engine: Cryogenic Liquid 

—Technology Development ——— 

FY 1093 | IPS* 


TECHNOLOGY PROGRAM 

• MILESTONES 

• TECHNOLOGY 

(MATERIALS, PROCESSES, PARTS, COMP.) 

• TEST BED CONSTRUCTION 



* COMPONENT TESTING M TEST BED 


evelopment 


Chemical 






March 7,1993 


Advanced Development Plan 


Engine Name: 

Integrated Modular Engine 


Class of Engine: 

Cryogenic Liquid 

Chemical 





Figure 81. 


Output for Space Shuttle Redesigned 
Solid Rocket Motor (RSRM) 
Propulsion System 


TA3-0318 



RSRM Propulsion System 


*- 0 

N 10 

T~ 


N O 

CO O 

• • 

CO 1 ^ 

CM 

CO 


CO CO 


CM 

CO U) 

CM CM 

CM CM 

CO 



CM 

■ 






Length (in) 1,513.4 

Weight (Ibm) 1,255,979 
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February 14,1993 Background Information 


Engine Name: Space Shuttle Redesigned Solid Rocket Motor 

Class of Engine: Solid Fuel 


Chemical 


■ Background 

The original design and development of the SRM occurred during the mid-1970s and the fast shuttle flight was in April 1981. Modifications were made to 
ZZfl performance in ih. early 1980s with the design referred to as the high performance motor (HPM). Ute final «*£«*«» < .he HPM was first 
launched on the shuttle in August of 1983 (STS-8). The design presented here commenced in mtd-1986 and is referred to as the RSRM. It first fie 

Ma rsh a l l Space Flight Center (MSFQ has the overall management responsibility for the design and procurement of the solid rocket boosters (SRB). Thiokol 
Smioe'ojxnutoru is theooMractor responsible for the development and production of the SRMs. the major component of the SRB. United Space Boosters. Inc. 
(USBIXSunnyvale, California, has responsibility for the SRB aft and forward skin refurbishment and assembly. USB1 also SU ^ S d 

plates, tunnel coven, and external tank (ET) attach ring, while the joint venture of Lockheed Space Operations Company (composed of Uurkheed, Th.okol, and 
Grumman) has the contract for the SRM and SRB assembly, checkout, launch, recovery, and disassembly. 

The two SRMs on the Space Shuttle provide the main thrust to lift the vehicle off the pad and up to an altitude of about 150,000 ft, 24 nmi (28 mi). On the 
pad, the two SRBs support the entire weight of the ET and orbiter and transmit the weight load through their structure to the mobile launch P 1 ®* 0 ™ 

RSRM booster has a threat (sea level) of 2.9 Mlb at launch. They are ignited after the three shuttle main engines total thrust level is verified. The two SRMs 
provide 71.4 percent of the thrust at liftoff and accelerate the shuttle to approximately 3,100 mph before separating from the remainder of the shuttle launch 
vehicle. SRB apogee occurs 75 sec after SRB separation, at an altitude of 220,000 ft, 35 nmi (41 mi) down range. SRB impact occurs in the ocean 
approximately 122 nmi (141 mi) down range* 

The SRMs are the largest solid propellant motors ever flown and the first designed for reuse. Each is 126.11 ft (1,513.38 in.) long and 12.16 ft (146.08 in.) in 
diameter. At launch, each weighs 1,255,978 lb of which 88 percent, 1,107.168 lb, is propellant The boosters are designed to be used 20 times. 

Primary elements of each booster are the motor (including case, propellant igniter, and nozzle), structure, separation systems, operational flight 
instrumentation, recovery avionics, pyrotechnics, deceleration system, thrust vector control system, and range safely destruct system. 

Each booster is attached to the ET at the SRB’s aft frame by two lateral struts and a diagonal strut. The forward end of each SRB is attached to the ET at the 
forward end of the SRB forward skirt. On the launch pad, each booster also is attached to the mobile launch platform at the aft skirt by four bolts which are 

severed by small explosives at liftoff. 

The propellant mixture in each SRB motor consists of ammonium perchlorate (oxidizer, approximately 69.7 percent by weight), aluminum (fuel, 16 percent), 
iron oxide (a bum rate catalyst, approximately 0.3 percent), a polymer (a binder that holds the mixture together, 12.04 percent), and an epoxy curing agen 
(1.96 percent). The propellant is molded into an 11-point star-shaped perforation in the forward portion of the forward segment that transitions into * cylindrical 
perforation (CP) grain in the aft portion of the forward segment. Each of the three aft segments have aft tapered CP grains. This configuration provi es ig 
thrust at ignition, then reduces the thrust by approximately one-third, 20 sec after liftoff to prevent ovetstressing of the vehicle during maximum dynamic 

pressure (Max Q). 

Each RSRM is made up of four solid rocket motor casting segments. The segmented design provides maximum flexibility in RSRM fabrication, 
transportation, and handling. Each segment is shipped to the launch site on a heavy duty railcar with a specially built cover. 

The nozzle expansion ratio of each booster is 7.72:1. The moveable nozzle is gimbaled for thrust vector control (TVC) direction. Each SRB has its own 
redundant auxiliary power units and hydraulic pumps. The omnidirectional gimbaling capability is 8 deg. Each nozzle has a carbon cloth phenolic liner wh.ch 
erodes and chars during firing. The nozzle is a convergent-divergent, movable design in which an aft pivot-point flexible bearing is the gimbal mechanism. 

The cone-shaped aft skirt reacts the aft loads between the SRB and the mobile launch platform. Eight separation motors, four mounted on the aft skirt and four 
mounted on theforward skirt provide the thrust and directional control to dear the SRBs from the orbiter and external tank after booster separation. The aft skirt 
contained avionics and TVC system which consists of two auxiliary power units, hydraulic pumps, and hydraulic system. 



- References 
Source: 


Design Data Book (DDB) for Space Shuttle Redesigned Solid Rocket Motor (RSRM) - (TWR-16881) 


Date: 


11/01/89 
Daniel Levack 


March 30,1993 


Propulsion System General Data 


Creation Date 



8/31/92 


Modification Date 


3/29/93 


Record Number 


Engine Name 

Class of Engine 

Propulsion Type 

Acronym 

Application 

Manufacturer 

Program Status 

Manrated 

lOC/Date Studied (Month/Year) 

Mixture Ratio - Engine/ Thrust Chamber 
P ropellants 

Oxidizer 1 AP — 


iSolld Fuel 


iChemical 


I Thermodynamic Expansion of Hot Gas 




iThiokol 

lOperational 




Fuel 


lAluminum Powder 


Engine Design Life (Flights) 
Restart Capability 
Engine Cycle 

Nominal Chamber Pressure 









February 14,1993 


Motor Performance 1 


Engine Name: 

Space Shuttle Redesigned Solid Rocket Motor 


Class of Engine: 

Solid Fuel 

Chemical 


-•Propellant Composition* 





Material 


Weight. Percent 

Function 


|AP 

□ 

1 69T 1 

(Oxidizer 

-1 

lAluminum Power 

□ 

1 16 1 

[Fuel 

| 



—1 

|HB Polymer (PBAN) 

□ 

1 12.04 

| Binder 

-1 

|Epoxv Resin 

□ 

1 1.96 J 

|Curina Agent 

z □ 

(Ferric Oxide (Fe203) 

□ 

1 0.3 _ | 

]Bum Rate Catalyst 

zzi 

i 

□ 

1__ 

1 

zzi 

i 

n 

i n 

1__ 

1 

-1 


Motor Thrust, lbf> 


Maximum Expected Operating 
Maximum Operating 
Burn Time Average 
Action Time Average 


Sea Level 


Vacuum 


c= 

3.348,37l| | 

3,607,000i 

z 

3,055,37l| 1 

3,314,000| 

[Z 

2,337,37l| I 

2,596,000| 

z 

2,146.37l| r 

2,405,0001 



Sea Level 

Vacuum 

Bum Time 

1 260,850,6361 

I 289,713,6001 

Action Time 

1 264,862,21 t \ 

| 296,777,0001 


■i Throttle Ratio— 

Sea Level 

Vacuum 

Maximum 

I ~1 IZ 


Minimum 

“I z 





Specific Impulse, sec-lbf/lbnr 


Sea Level 


Vacuum 


Burn Time Avg 
Action Time Avg 


i— 

ZI 

1 


l_ 

238.731 1 

267.501 



1 Tvoe IBell - carbon phenolic ablative ! I 

Length (in) 

l_ 

178.75) 

Diameter (in) 

i _ 

149.67 

Throat Area (sq. in) 


2,278 

Expansion Ratio 

l 

7.72 

Submergence Ratio, 

percent 1 

19 






February 22,1993 MOtOf Performance 2 


Engine Name: Space Shuttle Redesigned Solid Rocket Motor 

Class of Engine: Solid Fuel Chemical 



Method JGimbal | 

Total Mass w/TVC l_ 1.2S5.97J 

Total Mass wo/TVC 1_J 

Mass (Ibm) 1--J 

Max Gimbal Angle (deg) L- 

M fl v Gimbal Rate (deg/s) 1 _-— 





__ Engine Component Masses 



Weights. Ibm 

Case 

98,010 

Propellant 

Motor 

Igniter 

1,107,035 

134 

Insulation 

20,191 

External Insulation 

637 

Liner 

1,347 

Shipping Segment 

1,247,802 

Inhibitor 

1,800 

Items Shipped Separate 


Igniter Inerts 

Systems Tunnel 
Instrumentation 

Joint Heater Cable 

Nozzle-to-Forward Section 

485 

533 

80 

24 

17,524 

Exit Cone* 

Separation System 

Stiffener Rings* 

Joint Heater System 

Exit Cone Installation 

S&A Installation 

RSRM Installation 

System Tunnel Joints 

6,193 

231 

908 

348 

22 

15 

439 

21 



Total 

1,255,979 


* With external insulation installed 








February 22,1993 start-Up/Shutdown Sequences 


i 

Engine Name: Space Shuttle Redesigned Solid Rocket Motor 

Class of Engine: Solid Fuel 


r Startup Sequence 


Chemical 


Expected Nominal Operational RSRM Sequence 


Time (seel 

- 6.0 

0.0 

0.23 

21.5 

78.5 
111.6 
122.2 
125.9 

127.1 

396.2 
405.5 


SSME Ignition 

Fire signal to ignition system initiators 

RSRM liftoff at 563.5 psia chamber pressure 

Burnout of star section web in forward segment 

Burnout of aft tapered section in aft segment commences 

Burnout of aft tapered section in aft segment complete and tailoff commences 

Separation sequence Initiated; chamber pressure is 50 psia 

RSRM physically separated (approximately) 

Propellant burnout 

Nozzle extension is severed and jettisoned 
Splashdown 


February 20,1993 Start 


/ 


* 


Engine Name: Space Shuttle Redesigned Solid Rocket 

Class of Engine: Solid Fuel 


Isp Profile 




Nozzle 





Headend 

Stagnation 

Vacuum 

Total Maaa 

Specific 

Tim* 

Praaaura 

Praaaura 

Thrust 

Flow Rata 

ImpfcjM 

seconds 

psi* 

paia 

lb1 

Ibm/sac 

aec-tbi/tom 


(Nominal 60 *F and 0.36® Ipe Bum Ra*aJ 



1.0 

610.93 

817.86 

3,177.675 

11.646.3 

268.20 

2.0 

696.99 

812.63 

3.162.360 

11,783.2 

268.36 

4.0 

690.66 

816.74 

3,196,184 

11,891.1 

266.79 

6.0 

896.68 

840.37 

3,298,001 

12,243 4 

269.37 

12.0 

687 96 

840.91 

3,314,362 

12,291.9 

269.64 

16.0 

879.63 

839.04 

3,321,176 

12,306.2 

269.90 

20.0 

873.86 

837.86 

3,330,801 

12,326.9 

270.16 

24.0 

632.69 

802.25 

3.196.860 

11,844.9 

270.06 

28.0 

778.24 

753.37 

3,009.303 

11,190.2 

269.66 

32.0 

736.86 

715.26 

2,862,180 

10,630.1 

269.26 

36.0 

699.16 

881.96 

2.733,822 

10,187.9 

268.87 

40.0 

664.90 

660.61 

2.612,886 

9,731.1 

266.49 

44.0 

638.28 

826.28 

2.619,380 

9,398.4 

268.12 

46.0 

615.63 

806.40 

2,439.666 

9,111.0 

267.77 

52.0 

594.16 

586.27 

2.362.641 

6,835.1 

267.42 

56.0 

600.75 

592.61 

2,396,414 

6.967.5 

267.23 

60.0 

610.67 

603.19 

2.443,416 

9,149.3 

267.06 

640 

622.65 

615.64 

2.496,140 

9,380.1 

266.89 

68.0 

629.32 

622.96 

2,532,199 

9,494 3 

266.71 

72.0 

636.40 

629.56 

2.563.350 

9,6179 

266.52 

760 

637.20 

631.64 

2.577,041 

6,6766 

266.32 

60.0 

624.26 

619.37 

2.530.472 

9,510.6 

266.07 


Pressure Profile 



0 


Motor 

Chemical 




NozzJs 





Haadend 

Stagnation 

Vacuum 

Total Maaa 

Specific 

Time 

Preeeure 

Praaaura 

Thrust 

Flow Rato 

Imptuae 

seconds 

pale 

paia 

tof 

IbrrVsac 

eec-totflbm 


(Nominal 80 T and 0.368 Ips Bum Rate) 



84.0 

597.97 

593.56 

2.430,344 

9.136.5 

265.95 

88.0 

506.47 

561.54 

2,304,312 

8,669.4 

265.80 

92.0 

539.01 

536.47 

2,202,168 

8,289.2 

265.67 

96.0 

515.03 

511.87 

2,109,693 

7,944.9 

265.54 

100.0 

489.72 

486.88 

2,011,079 

7,577.5 

265.40 

104.0 

469.83 

467.32 

1,891,307 

7,133.3 

266.14 

106.0 

426.38 

424.18 

1,756,306 

6,631.5 

264.64 

112.0 

367.07 

366.03 

1,506,404 

5,727.9 

262.99 

114.0 

264.86 

263.61 

1,061,918 

4,147.6 

260.65 

116.0 

170.56 

169.74 

670,474 

2,680.9 

250.09 

118.0 

109,72 

109.20 

421,968 

1,731.3 

243.73 

118.4 

99.75 

99.28 

383,288 

1.575.3 

243.31 

116.8 

90.37 

89.94 

346,920 

1,428.3 

242.89 

119.2 

82.02 

81.64 

314,800 

1,297.5 

242.47 

119.6 

73.00 

73.26 

282,061 

1,185.4 

242.03 

120.0 

66.33 

66.02 

250,136 

1,035.5 

241.57 

120.4 

57.39 

57.12 

222,727 

910.5 

244.61 

120.8 

60.15 

49.91 

197,245 

796.5 

247.64 

121.2 

41.20 

41.00 

164,191 

655.3 

250.54 

121.6 

32.59 

32.43 

131.574 

519.3 

253.36 

122.0 

25.39 

25.27 

103,860 

405.5 

256.14 

122.4 

19.63 

19.53 

81,296 

314.0 

256 86 






February 20, 1993 


Start-Up/Shutdown Profiles 


Engine Name: Space Shuttle Redesigned Solid Rocket Motor 

Class of Engine: Solid Fuel 


Chemical 



Flowrate Profile 




Nozzle 





Headend 

Stagnation 

Vacuum 

Total Mata 

Specific 

Time 

Pressure 

Preesure 

Thrust 

Flow Rale 

Impfcjse 

seconds 

psie 

pata 

ft* 

IbnYeec 

sec-ttrfflbm 


(Nominal 60 *F and 0.368 ipe Bum Rale) 



1.0 

910.93 

817.86 

3,177,675 

11,848.3 

268 20 

2.0 

896.99 

812.63 

3,162,380 

11,763.2 

268.38 

4.0 

690.58 

818.74 

3,198,164 

11,891.1 

266.79 

S.O 

896.58 

640.37 

3,296,001 

12,243.4 

269.37 

12.0 

887 96 

840.91 

3,314,382 

12,291.9 

269.64 

16.0 

879.63 

839.04 

3,321,176 

12,305.2 

269.90 

20.0 

873.86 

837.88 

3,330,801 

12,328.8 

270.16 

24.0 

832.69 

802.25 

3.198.880 

11,844.9 

270.06 

28.0 

778.24 

753.37 

3,009,303 

11,160.2 

269.65 

32.0 

736.86 

716.26 

2,862,180 

10,630.1 

269.25 

36.0 

699.16 

681.96 

2,733.822 

10,187.9 

266.67 

40.0 

684.90 

860.81 

2.612.868 

9,731.1 

288.49 

44.0 

638.28 

626.28 

2,619,380 

9,398.4 

266.12 

48.0 

615,63 

606 40 

2,439,668 

9,111.0 

267.77 

52.0 

594.16 

586.27 

2.382,641 

6,835.1 

267.42 

560 

600.75 

592.61 

2,396,414 

6.967.6 

267.23 

60.0 

610.67 

603.19 

2,443,418 

9,149.3 

267.06 

640 

622.55 

815.84 

2,498.140 

9,380.1 

266.89 

680 

629.32 

622.98 

2.532.199 

9.494.3 

268.71 

72,0 

635.40 

629 55 

2.583,350 

9.817.9 

268.52 

76 0 

637.20 

631.84 

2,577,041 

9.676.6 

266.32 

80.0 

624 26 

619 37 

2.530,472 

9,510.6 

266.07 




Nozzle 





Headend 

Stagnation 

Vacuum 

Total Maas 

Specific 

Time 

Pressure 

Pressure 

Thrust 

Rcw Rate 

Impluse 

seconds 

pels 

psia 

Ibf 

ttyiVsec 

sac-lbt/lbm 


(Nominal 60 T and 0.368 ipa Bum Rata) 



84.0 

597.97 

593.56 

2,430,344 

9,138.6 

266.95 

88.0 

586.47 

661.54 

2,304,312 

8,669.4 

265.80 

92.0 

639.01 

535.47 

2,202,168 

8,289.2 

266.67 

96.0 

516.03 

511.87 

2,109.893 

7,944.9 

265.54 

100.0 

489.72 

486.88 

2,011,079 

7,577.5 

265.40 

104.0 

459.83 

467.32 

1,891,307 

7,133.3 

265.14 

106.0 

426.36 

424.15 

1,758,306 

6,631.5 

264.84 

112.0 

367.07 

366.03 

1,506,404 

5,7279 

262.99 

114.0 

264.86 

263.61 

1,081,918 

4,147.6 

280 85 

118.0 

170.66 

169.74 

670,474 

2,680.9 

250.09 

118.0 

109.72 

109.20 

421,988 

1,731.3 

243 73 

118.4 

99.75 

99.26 

383,288 

1.575.3 

243.31 

118.8 

9037 

89.94 

346,920 

1,428.3 

242.89 

119.2 

82.02 

81.84 

314,800 

14297.5 

242.47 

119.6 

73.80 

73.26 

282,061 

1,186.4 

242.03 

120.0 

66.33 

66.02 

260,136 

1,036.5 

241.57 

120.4 

57.39 

57.12 

222,727 

910.5 

244.61 

120.8 

50.16 

49.91 

197,246 

798.5 

247.64 

121.2 

41.20 

41.00 

164,191 

655.3 

250.54 

121.6 

32.59 

32.43 

131,574 

519.3 

253.36 

122.0 

25.39 

25.27 

103,860 

406.5 

256 14 

122.4 

1983 

1953 

81.298 

314 0 

258 88 







February 14,1993 


Interfaces 


Engine Name: Space Shuttle Redesigned Solid Rocket Motor 

Class of Engine: Solid Fuel 


Chemical 


Interfaces 






Technology Development 


February 14,1993 


Engine Name: Space Shuttle Redesigned Solid 

Class of Engine: Solid Fuel 


Rocket Motor 




February i4, 1993 Advanced Development Plan 




Figure 82. 


Output for NERVA Derived Nuclear 
Thermal Rocket Propulsion System 



NTRND Propulsion System 
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March 30,1993 


Background Information 


Engine Name: 


Nuclear Thermal Rocket, NERVA Derivative 


Class of Engine: Nuclear Thermal 


Fission Reactor 


■ Background 

Representative background data for the NTPNE will be incorporated at a future date. 


Comments 

No comments. 


Sourc^ nCeS Rover/NERVA-Derived Near-Term Nuclear Propulsion, FY92 Final Report, October 22, 1992 (Final report of 
Rocketdyne contract with NASA-LeRC); Unpublished Rocketdyne data. 


Date: Unpublished data as of March 1993. 

Entered by: Dan Levack 




March 30,1993 


Propulsion System General Data 



Creation Date 


3/7/93 


Modification Date 


3/30/93 


Record Number 


Engine Name 

Class of Engine 

Propulsion Type 

Acronym 

Application 

Manufacturer 

Program Status 

Manrated 

lOC/Date Studied (Month/Year) 

Mixture Ratio - Engine/ Thrust Chamber 
Propellants 

Oxidizer l None — 


Fuel 


I Liquid Hydrogen 


Engine Design Life (Flights) 
Restart Capability 
Engine Cycle 

Nominal Chamber Pressure 

Expansion Ratio 
TVC Method 

Dimensions^-™™*™™™ 
Maximum Length (Inches) 

Maximum Width (Inches) 
Engine Mass (Ibm) 


|Nuclear 
iNuclear Thermal 


[Fission Reactor 


I Thermodynamic Expansion of Hot Gas 
INTRND 

I Space Transfer 

lOinceotual Engine (Rocketdyne Study 




12-19-93 




300.01 


iGimbal 


387.0( 
119.01 
9,570.01 


Engine Thrust Data, Ibf 


Nominal 


Maximum 


-110,75 


Vacuum 

50.00C 


Minimum 











March 7,1993 


Engine Performance 1 


Engine Name: 


Nuclear Thermal Rocket, NERVA Derivative 


Class of Engine: Nuclear Thermal 


Fission Reactor 


Fuel 


iLiauid Hydrogen 


Nominal Chamber Pressure (psla) 
Expansion Ratio 
Engine Design Life (Flights) 
Engine Thrust Data-^— 

Nominal 

Maximum 


Minimum 


Thrust data in units of Ibf 


• Specific Impulse Data' 

@Nominal Thrust 
@Maxlmum Thrust 
@Mintmum Thrust 


784.01 

300.01 


Vacuum 

50,000.01 



Vacuum 

852.00 


Engine Restarts' 
Design 

Demonstrated 


'Engine Reliability, sec 
Design 

Demonstrated 


Nozzle Data 


16,201 


Bell, Slotted Tubular Wall/Radiation 


Length On) 

Diameter (sq. in) 
Throat Area (sq. in) 
Exit Area (sq. in) 
Expansion Ratio 



Specific Impulse data in units of seconds 





















March 13,1993 Start-Up/Shutdown 


Engine Name: Nuclear Thermal Rocket, NERVA Derivath 

Class of Engine: Nuclear Thermal 

—Thrust Profile 


Profiles 







March 7,1993 Start-Up/Shutdown Profiles 



Thrust Profile 





March 7,1993 Start-Up/Shutdown Profiles 


Engine Name: Nuclear Thermal Rocket, NERVA Derivative 

Class of Engine: Nuclear Thermal 


Fission Reactor 


Isp Profile 





March 13,1993 


Interfaces 
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Technology Development 







March 7, 1993 


Engine Name: 


Advanced Development Plan 


Nuclear Thermal Rocket, NERVA Derivative 


Class of Engine: Nuclear Thermal 


Fission Reactor 



Figure 83. 


Field Definitions of the File 
“Prop System DB” 



Field Name 

Record Number 
Creation Date 

Modification Date 


Field Typ e 
Number 
Date 

Date 


Formula / Entry Option _ 

Serial Number with Current Value: “11" Increment: "1" 

Auto-enter the: "Creation Date" . , 

Prevent data that is automatically entered from being changed. 

Auto-enter the: "Modification Date* . , 

_ * antaraH from hAmO Ch an Q0U. 


Propulsion Type 
Class of Engine 


Text 

Text 


Value List 
Cryogenic Liquid 
Hydrocarbon Liquid 
Storable liquid 
Solid Fuel 
Hybrid SRB 
Metalized Fuels 
Nuclear Thermal 
Nuclear Electric 
Combined Nuclear 
Exotic 


Engine Name 

Text 

Acronym 

Text 

Application 

Text 

Manufacturer 

Text 

Program Status 

Text 

Manrated 

Text 

Mixture Ratio (0:F) Engine 

Number 

Mixture Ratio (0:F) 

Chamber 

Number 

lOC/Date Studied 

Text 

Engine Cycle 

Text 

Nominal Chamber Pressure 

Number 

Min Inlet Pressure (Oxid) 

Number 

Expansion Ratio 

Number 

TVC Method 

Text 

Maximum Length 

Number 

Maximum Width 

Number 

Engine Mass (Ibm) 

Number 

Oxidizer 

Text 

Fuel 

Text 

Nom Sea Level Thrust 

Calculation (Number) 

Nom Vac Thrust 

Number 

Max Sea Level Thrust 

Calculation (Number) 

Max Vac Thrust 

Number 

Min Sea Level Thrust 

Calculation (Number) 

Min Vac Thrust 

Number 

Isp Sea Level 

Calculation (Number) 

Isp Vacuum 

Calculation (Number) 

Engine Background 

Text 

Background Comments 

Text 

Reference Source 

Text 

Date of Reference 

Text 

Entered by 

Text 


* If (Nom Vac Thrust > 0, Norn Vac Thrust - 11.545353 * 
NozzleDiameter A 2,"") 

» If (Max Vac Thrust > 0, Max Vac Thrust - 11.545353 * 
NozzleDiameter A 2,"") 

, |f (Min Vac Thrust > 0 t Min Vac Thrust - 11.545353 * 
NozzleDiameter A 2,"") 

« Isp SL Nom Thrust 
. Isp Vac Nom Thrust 
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Field Name 


Formula / Entry Option 


Engine Design Life Starts 
Engine Design Life Sec 
Engine Design Life (Flights) 
Restart Capability 
Engine Design Restarts 
Engine Demo Restarts 
Design Rel (Starts) 

Design Rel (Sec) 

Demo Rel (Starts) 

Demo Rel (Sec) 

Isp SL Nom Thrust 

Isp Vac Nom Thrust 
Isp SL Max Thrust 

IspVacMaxThrust 
Isp SL Min Thrust 

Isp Vac Min Thrust 
NozzleType 
Nozzle Length 
NozzleDiameter 
Nozzle Throat Area 
Nozzle Exit Area 
Nozzle Expansion Ratio 
Throttle Ratio SL Max 
Throttle Ratio Vac Max 
Throttle Ratio SL Min 
Throttle Ratio Vac Min 
Max OX Pump Pres 
Max Fuel Pump Pres 
Nom OX Turbine Pres 
TVC Mass 

Max Gimbal Angle (deg) 
Max Gimbal Rate 
Nominal Length 
Stowed Length 
Extended Length 

Extended Length Max 
Gimbal 

Nozzle Exit Diameter 
Maximum Diameter 
Max Diameter Max Gimbal 
Total Mass TVC 
Total Mass w/o TVC 
Start Up Sequence 
Shutdown Sequence 
Thrust Startup Profile 
Thrust Shutdown Profile 
Isp Startup Profile 
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Field Type _ 

Number 

Number 

Number 

Text 

Number 

Number 

Calculation (Number) 
Calculation (Number) 
Number 
Number 

Calculation (Number) 
Number 

Calculation (Number) 
Number 

Calculation (Number) 

Number 

Text 

Number 

Number 

Number 

Calculation (Number) 

Number 

Number 

Number 

Number 

Number 

Number 

Number 

Number 

Number 

Number 

Number 

Calculation (Number) 

Number 

Number 

Number 


3 Engine Design Life Starts 
» Engine Design Life Sec 

= If (Nom Vac Thrust > 0 , Isp Vac Nom Thrust * Nom Sea Level 
Thrust / Nom Vac Thrust,"") 

* If (Max Vac Thrust > 0, If (IspVacMaxThrust > 0, IspVacMaxThrust 

* Max Sea Level Thrust / Max Vac Thrust, "")," *) 


* If (Min Vac Thrust > 0, If (Isp Vac Min Thrust > 0, Isp Vac Min 
Thrust * Min Sea Level Thrust / Min Vac Thrust, * •), “ ") 


= Nozzle Expansion Ratio * Nozzle Throat Area 


= Maximum Length 


Number 

Number 

Number 

Number 

Number 

Picture/Sound 

Picture/Sound 

Picture/Sound 

Picture/Sound 

Picture/Sound 


Prop System DB 


-2- 



Formula / Entry Option 


Field Name 

Isp Shutdown Profile 
Flow Startup Profile 
Flow Shutdown Profile 
O/F Startup Profile 
OIF Shutdown Profile 
Technology Development 
Adv Development Plan 
Interface 1 
Interface 2 
Interface 3 


Field Type 

Picture/Sound 

Picture/Sound 

Picture/Sound 

Picture/Sound 

Picture/Sound 

Picture/Sound 

Picture/Sound 

Picture/Sound 

Picture/Sound 

Picture/Sound 


Engine Type 
Nom Fuel Turbine Pres 
Min Inlet Pressure (Fuel) 
Return Where? 


Text 

Number 

Number 

Calculation (Number) 


Which Data Entry? Calculation (Number) 


Class Type Calc 

Engine Component Masses 

Grain Design 

Noz Submergence Ratio 

Prop Material 1 

Prop Material 2 

Prop Material 3 

Prop Material 4 

Prop Material 5 

Prop Material 6 

Prop Material 7 

Prop Weight Percent 1 

Prop Weight Percent 2 

Prop Weight Percent 3 

Prop Weight Percent 4 

Prop Weight Percent 5 

Prop Weight Percent 6 

Prop Weight Percent 7 

Prop Function 1 

Prop Function 2 

Prop Function 3 

Prop Function 4 

Prop Function 5 

Prop Function 6 

Prop Function 7 

Burn Rate 


Calculation (Text) 

Picture/Sound 

Text 

Number 

Calculation (Text) 

Calculation (Text) 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Number 


« H(Class of Engine * 'Cryogenic Liquid' OR Class of Engine = 
Hydrocarbon Liquid* OR Class of Engine * Storable Liquid , 17, 
((Class of Engine - 'Solid Fuel', 46, if(Class of Engine - Hybrid 
3RB*. 75, if(Class of Engine * 'Nuclear Thermal" OR Class of 
Engine - 'Nuclear Electric* OR Class of Engine = 'Nuclear Electric , 
104, if(Class of Engine =» 'Exotic*,133,5))))) 

== if(Class of Engine = 'Cryogenic Liquid* OR Class of Engine = 
•Hydrocarbon Liquid* OR Class of Engine - Storable Liquid 8, 
»(Class of Engine * 'Solid Fuel', 12, if(Class of Engine - Hybrid 
SRB\ 13, W(Class of Engine * 'Nuclear Thermal" OR Class of 
Engine « 'Nuclear Electric" OR Class of Engine * Nuclear Electric , 
14, If (Class of Engine - 'Exotic',15,5))))) 


S^l aao Cnnlna 


« Oxidizer 
» Fuel 
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Field Name 
Burn Rate Temp 
Burn Rate Pressure 
Burn Rate Exp 
Burn Time 
Action Time 
Max Exp Op Press 
Max Op Press 
Burn Time Avg Press 
Action Time Avg Press 
Max Exp Op Thrust Vac 
Max Op Thrust Vac 
Burn Time Avg Thrust Vac 
Action Time Avg F Vac 
Burn Time Impulse Vac 
Action Time Impulse Vac 
Action Time Avg F SL 

Max Exp Op Thrust SL 

Max Op Thrust SL 


Field Type 
Number 
Number 
Number 
Number 
Number 
Number 
Number 
Number 

Calculation (Number) * Nominal Chamber Pressure 

Number 

Number 

Number 

Calculation (Number) 

Calculation (Number) 

Calculation (Number) 

Calculation (Number) 


Calculation (Number) 
Calculation (Number) 


Burn Time Avg Thrust SL Calculation (Number) 


Burn Time Impulse SL 
Action Time Impulse SL 


Calculation (Number) 


= Norn Vac Thrust 

= Bum Time Avg Thrust Vac * Bum Time 
s Action Time Avg F Vac * Action Time 

- If (Action Time Avg F Vac > 0, Action Time Avg F Vac - 11.545353 
♦NozzleDiameter A 2,"") 

* If (Max Exp Op Thrust Vac > 0, Max Exp Op Thrust Vac - 
11.545353 * NozzleDiameter A 2," *) 

, If (Max Op Thrust Vac > 0, Max Op Thrust Vac - 11.545353 * 
NozzleDiameter A 2, ’ B ) 

= If (Bum Time Avg Thrust Vac > 0, Burn Time Avg Thrust Vac - 
11.545353 * NozzleDiameter A 2, " ") 

* If (Burn Time Avg Thrust SL > 0, Burn Time Avg Thrust SL * Burn 
Time," *) 


Calculation (Number) = if (Action Time Avg F SL > 0, Action Time Avg F SL * Action Time, 


Press Startup Profile 
Press Shutdown Profile 
Burn Time Avg Isp SL 


Picture/Sound 
Picture/Sound 
Calculation (Number) 


= If (Burn Time Avg Thrust Vac > 0, If (Burn Time Avg Isp Vac > 0, 
Burn Time Avg Isp Vac * Burn Time Avg Thrust SL / Burn Time Avg 

Thrust Vac,--),-") 


Burn Time Avg Isp Vac 
Action Time Avg Isp SL 


Action Time Avg Isp Vac 
Reactor Type 
Fuel Type 
Max Fuel Temp R 
Propellant Temp R 
Impulse Startup Profile 
Impulse Shutdown Profile 


Number 

Calculation (Number) 

Calculation (Number) 

Text 

Text 

Number 

Number 

Picture/Sound 

Picture/Sound 


= If (Action Time Avg F Vac > 0, If (Action Time Avg Isp Vac > 

0 Action Time Avg Isp Vac * Action Time Avg F SL / Action Time 
Avg F Vac.' *).*') 

* Isp Vac Norn Thrust 
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Figure 84. 


Field Definitions of the File 
“Prop System DB-Pictures” 



1 IVWW1 w | 


Class of Engine 


Text 


Name" matches "Engine 
If no match, copy:" " 


Name" 


Value List: 

Cryogenic Liquid 
Hydrocarbon Liquid 
Storable Liquid 
Solid Fuel 
Hybrid SRB 
Metalized Fuels 
Nuclear Thermal 
Nuclear Electric 
Combined Nuclear 
Exotic 

Lookup: "Class of Engine" In "Prop System DB“ when ‘Engine 
Name" matches ‘Engine Name" 

If no match, copy: "" 


Engine Name 

Acronym 

Text 

Text 

Lookup: ‘Acronym* in ‘Prop System DB" when ‘Engine Name' 
matches 'Engine Name" 

If no match, copy:"" 



Engine Type 

Text 

Lookup: "Engine Type" In "Prop System DB" when ‘Engine Name" 
matches "Engine Name" 



if no match, copy: *" 

Mixture Ratio (0:F) 

Number 

Lookup: ‘Mixture Ratio (0:F) Engine* in ‘Prop System DB" when 
"Engine Name" matches ‘Engine Name" 



H no match, copy:"" 

Nominal Chamber Pressure 
(psia) 

Number 

Lookup: "Nominal Chamber Pressure" In ‘Prop System DB‘ when 
"Engine Name" matches "Engine Name" 

If no match, copy: "" 

Expansion Ratio 

Number 

Lookup: "Expansion Ratio" in "Prop System DB" when "Engine 
Name" matches ‘Engine Name" 



If no match, copy: "* 

Norn Sea Level Thrust (Ibf) 

Number 

Lookup: "Nom Sea Level Thrust" In "Prop System DB when 
"Engine Name" matches "Engine Name* 



If no match, copy:"""" 

Nom Vac Thrust 

Number 

Lookup: "Nom Vac Thrust" in "Prop System DB" when "Engine 
Name" matches "Engine Name" 

If no match, copy: "" 


Isp Sea Level (sec) 

Number 

Lookup: "Isp Sea Level" in "Prop System DB" when "Engine Name 
matches "Engine Name’ 



If no match, copy: 

isp Vacuum 

Number 

Lookup: "Isp Vacuum" in "Prop System DB" when "Engine Name" 
matches "Engine Name" 

If no match, copy: "" 


Maximum Length 

Number 

Lookup: "Maximum Length* in "Prop System DB* when "Engine 
Name" matches "Engine Name" 



If no match, copy: "* "" 

Maximum Width 

Number 

Lookup: "Maximum Width" in ‘Prop System DB" when "Engine 


Name" matches "Engine Name" 

If no match, copy:"" " 


Engine Mass 

Number 

Lookup: "Engine Mass 0bm)" in "Prop System DB" when "Engine 
Name" matches "Engine Name" 

If no match, copy: " "" 



Engine Drawing 

Picture/Sound 


Engine Balance 

Picture/Sound 

» Engine Type 

Engine Type Calc 

Calculation (Text) 

Engine Class Clac 

Calculation (Text) 

a Class of Engine 


a 
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Action Time Avg F SL 

Number 

Action Time Avg F Vac 

Number 

Action Time Avg Isp SL 

Number 

Action Time Avg Isp Vac 

Number 

Action Time Avg Press 

Number 

Action Time 

Number 

Fuel 

Text 


Lookup. - 

Name’ matches "Engine Name 1 


HA AAml' ** ** 


Lookup: "Action Time Avg F Vac" in "Prop System DB" when 
‘Engine Name" matches "Engine Name" 

If no match, copy:"""" 


Lookup: "Action Time Avg Isp SL’ in "Prop System DB" when 
"Engine Name" matches "Engine Name" 

If no match, copy: ” "* 


Lookup: "Action Time Avg Isp Vac" in "Prop System DB" when 
"Engine Name" matches "Engine Name" 

If no match, copy: " "" 


Lookup: "Action Time Avg Press* In "Prop System DB" when 
"Engine Name" matches "Engine Name" 

If no match, copy: 


Lookup: "Action Time" In "Prop System DB* when "Engine Name" 
matches "Engine Name" 

If no match, copy:"" "" 

Lookup: "Fuel" In "Prop System DB" when “Engine Name" matches 

"Engine Name* 

If no match, copy: *""" 


Saturday, March 27, 1993 


Prop System DB-Pictures 


-2- 



Appendix 


Use of Fortran Externals with 
Resolve™ and Excel™ 


USER GUIDE 


Subject: 


Written By: 


Date: 


Fxternal Functions for Claris Resolve for the Macintosh written in FORTRAN 
Smp™d w?,h Unguage Syslems FORTRAN version 3.0.1 and MPW versron 

3.2.3 

David W. Harris 
Rocketdyne Division 
Rockwell International 
PO Box 7922 
6633 Canoga Ave. 

Canoga Park, CA 91309-7922 
(818) 718-4677 
March 10,1993 


INFORMATION PROVIDED IN i~H,S ^ V^s T^tHOUt'^ArANTY^Of'aNY 1 kIndNsITHER 

(collectively referred to as an User guide) IS PROVIDEU AS is w i WARRANTIES OF MERCHANT ABILITY 

EXPRESSEDORIMPUED. INCLUDING BUT ^ „„ of lhl 

sssrffiE'y %ss £ ss 
:;r; rsss *•- 4 > ™* u “ r -»“ - 

distributed to, pton,^ c|jtfc ind Reso|w >re regl , tOTd ^dmete „r a.nsConpon..ion 

Macintosh is a registered trademark of A PP>e Compiiter, ^corporate . 

This document was created using Microsoft Word for the Macintosh. 


Purpose: 


This User guide is to lead a person with limited knowledge of Macintosh 
nroeramine through the steps necessary to turn a FORTRAN subroutine into an 
Resolve external function. This guide assumes that the user has a little familiarity 
with thd Unguage S^ms FORTRAN corner 

detailed information refer to the Language Systems FORTRAN Reference Man 
onH to the Resolve User Guide and Claris Technical Note. 


INTRODUCTION 


Claris Resolve versions l.lvl and above have the ability to cal external code that 
can be used as spreadsheet functions. This code is an assembly language code with 
the proper data handling that allows it to be called or linked to other code. To create 
a Dddriivp fvtpmal function with this guide you must have the following. 


1. The CHookc. c. o object file 

2. A FORTRAN subroutine Setup, f 

3. A FORTRAN subroutine FHook. f 

4. Your FORTRAN subroutine 

5. Funcname application 


Because of the required interface between Resolve and an external function an 
interface program or "hook" had to be written in "C" code. This program handles 
the setting of variables that Resolve uses to call the external function and the 
passing of program variables. A hook called CHookc.c.o was created as a generic 
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interface. This hook calls two FORTRAN subroutines, Setup, f and FHook. f . The 
Setup. f subroutine supplies the CHook with two necessary pieces of information, 
the name of the function to be used by Resolve and the number of input arguments. 
The name of the function is not the file name but the function name used in the 
Resolve script to call the external function. The function name cannot be over 8 
characters long. Because the passing of string variables from FORTRAN to C is 
tricky, an application, Funcname, has been provided to create the setup, f file. 
Executing this program will create a complete setup. f file ready for compiling and 
linking. FHook.f is the front-end for your subroutine. Your subroutine will be 
called by FHook. f. FHook. f must be written with two arguments, an input array 
and an output array. Both arrays must be double precision real and dimensioned 
input(*) and output(lOO). The generic "C" hook was written to handle infinite input 
and 100 output variables. FHook. f can be used to manipulate the input and output 
data to your subroutine. That is do things such as reassign the values to other 
variable, change from double to single precision, convert the value and so on. 

The following is a set of steps that will allow you to create a Resolve external using 
the CHookc . c. o interface. It is suggested that all of the steps are followed the first 
time. After that any changes to the FORTRAN code that do not change file names 

will require only a simple Build command and maybe minor changes to the 
Resolve script. 

STEP 1 Create a SetUp subroutine. To do this run the program Funcname. This program 
will create a file SetUp.f that is necessary for the Resolve interface. When 
Funcname asks for ’Resolve Function Name', enter the name that you what to call 
the function in Resolve and for 'Number of Input variables', enter the number of 
input variables to your subroutine. 

STEP 2 Launch MPW 

STEP 3 Open (File, Open...) and change your FORTRAN subroutine so that it meets the 
programing rules. 

Programing Rules 

• No global or static storage: FORTRAN programs can have no COMMON, BLOCK 
DATA, or SAVE statements and the -saveall compiler option cannot be used to force 

static storage. 

• No FORTRAN I/O statements: see the following list. A lack of I/O is a serious 
limitation, but I/O is often for user interaction which is the function of Resolve. 


ACCEPT 

OPEN 

BACKSPACE 

PAUSE 

CLOSE 

PRINT 

DECODE 

READ 

ENCODE 

REWIND 

ENDFILE 

STOP 

FORMAT 

TYPE 

INQUIRE 

WRITE 

NAMELIST 



• No character constants: a statement such as 

CHARACTER*26 myString myString = 'I paid my taxes on April 7.' 
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will cause a linker error. Using character* 1 arrays initialized with data 
statements or char () functions can be used to create a character constant. 


STEP 4 


Create (File, Neil*) a Resolve to FORTRAN interface function. This subroutine 
must have the name FHook. f . The following function can be used as a boiler plate 


rnHp. 


SUBROUTINE FHook(args , revals) 


REAL*8 args(*), revals(100) 

REAL*8 argl,arg2,arg3,arg4,arg5 

REAL*8 arg6,arg7,arg8,arg9, arglO,argil ,argl2 


c 

c 

c 

c 

c 

c 

c 

c 


f your subroutine needs other type of variables (real 4 » ^eger, 
itc.) use the appropriate conversion function to avoid garbage from 
jeinq passed. Here are some examples 


a = SNGL( args( 1 )) 
b = IDINT(args(2)) 
c = IIDINT(args(3)) 
args(4) = DBLE(d) 

argl = args(l) 
arg2 = args(2) 
arg3 = args (3) 
arg4 = args(4) 
arg5 = args (5) 


lfrom real*8 to real*4 
[from real*8 to integer*4 
lfrom real*8 to Integer*2 
l any to real*8 


l This is the setting of the subroutine 
{arguments. Add more statements as 
las needed. 


c Calling your subroutine. Change this call as necessary to match 
c your subroutine. 


call yoursub(argl,arg2,arg3,arg4,arg5, 

arg6,arg7,arg8,arg9,arglO,argil,argl2) 


revals(1) 
revals(2) 
revals(3) 
revals(4) 
revals(5) 
revals(6) 
revals(7) 


arg6 

arg7 

arg8 

arg9 

arglO 

argil 

argl2 


IThis sets the output array 
iwith the appropriate 
I subroutine arguments. 


return 

end 


STEP 5 


Create a Build script. Either use the following example Build script file (saved as 

ResExtern.make) as boiler plate or use the Create BuildCommandS menu. 
It is important to include CHookc . c . o in the OBJECTS sections. CHookc. c. o is the 
Resolve to FORTRAN hook. 


# File: 

# Target: 

# Sources: 

# Created: 


ResExtern.make 
ResExtern 

FHook.f Setup.f yoursub.f 

Friday , March 5, 1993 2:21:05 PM _ 

p age 3 of 10 Printed: Wednesday, March 10, 1993 


FORTRAN external functions for Claris Resolve and Language System FORTRAN 



OBJECTS = CHookc.c.o FHook.f.o Setup.f.o yoursub.f.o 

ResExtern // ResExtem.make {OBJECTS} 

Link -t RsTl -c Rslv d 
{OBJECTS} a 

"{Libraries}"Runtime.o d 
"{Libraries}"Interface.o d 
"{FLibraries}"FORTRANlib.o d 
"{FLibraries}"IntrinsicLib.o d 
~o ResExtern 

FHook.f.o / ResExtern.make FHook.f 
FORTRAN FHook.f -opt=l 
Setup.f.o / ResExtern.make Setup.f 
FORTRAN Setup.f -opt-1 
yoursub.f.o / ResExtern.make yoursub.f 
FORTRAN yoursub.f -opt=l 

Running Create Build Commands 

1. Select Create Build Commands... under the Build menu. 

2. In Program Name type the name of the file used in the filejext argument of 
the GET external function. In the above example the Program Name is 
ResExtern. 

3. Click on the Source Files... button and select the function and subroutines that 
will be linked together. These include FHook.f and Setup.f as well as your 
subroutine. 

4. Click on CreateMake 

5. Open the file "Program Name". make (in the above example it would be 
ResExtern.make) and change the following: 

Add CHookc. c. o in the front of the objects list. 

Remove : -w -f -srt -ad 4 
Change the APPL to RsTl 
Change the '????' to Rslv 
Remove the lines: 

Echo "Include d"{FLibraries}Fresources.rd";" > 

"{FLibraries}Resource.inc" 

Rez "{FLibraries}Resource.inc" -a -m -o “filename." 

FSIZE “filename.” 

Remove the following libraries: 

"{FLibraries}"FSANELib.o d 

Remove unnecessary libraries noted by the Linker. They will not cause a linker 
abort, but there will be a warning. 

STEP 6 Run Build... under the Build menu. In the window type the program file name. 

STEP 7 Correct the code to remove any compile and linker errors and repeat STEP 6. 

STEP 8 Quit MPW 
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STEP 9 Move the compiled function file into the same folder as the Resolve application. 

STEP 10 Launch Resolve 

STEP 11 Create a Button using button tool from tool palette. Name it Load (Edit, Button 
Info...) 

STEP 12 Open the button script (Script, Button Script) and write: 

GET EXTERNAL "sResExtern" . 

Replace the word ResExtern with the name of your compiled function file. 

STEP 13 Close button script and save. 

STEP 14 Create a Button using button tool from tool palette. Name it Calculate (Edit, 

Button Info...) 

STEP 15 Open the button script (Script, Button Script) and write a Resolve script that 
defines your input variables, one output variable and a counter. Because Resolve 
External Functions can only return one value at a time you will have to create a loop 
and call your function once for each subroutine return variable you want. Your 
function call will include each of your input variables and the counter. The counter 
must be the last item in the list. Assign the return variable to the function (ie. x = 
function). For the first call to the function the counter must be equal to zero. The 
return value will be the first return variable. Therefore, the loop counter should go 
from zero to "the number of return variables"-1. The follow example is for the 
function FHook in the ResExtern file. FHook has 5 input variables and 7 output 
variables. The input values are located in cells Bl, B2, B3 B4 and B5 on the 
spreadsheet. The return values will be placed in cells c 1, C2, C3, C4, C5, C6 
and C7 as directed by the PUT x statement. 

DEFINE a,b,c,d,e,n,x 
a = Bl 
b = B2 
c = B3 
d = B4 
e = B5 

FOR n = 0 TO 6 

x = ResExtern;FHook(a,b,c,d,e,n) 

PUT X INTO MAKECELL(3,n+1) 

END FOR 

Replace the word ResExtern with the name of your compiled function file and 
FHook for the name you specified when running Funcname. 

STEP 16 Close button script 

STEP 17 Press the"Load" button This loads the external function. 

STEP 18 Press the "Calculate" button to run the function 

STEP 19 Save worksheet. 

After following this procedure you will have two files to keep track of: 
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• FORTRAN Function 

• Resolve worksheet 

To avoid operational problems keep these files in the same folder. Similarly there 
are FORTRAN files that should be kept together: 

• Function source code file 

• Any Subroutine source code files 

• Function .make file 


PROBLEMS 

The following are some special errors that may occur during the development 
process and some hints that may help to eliminate these problems. 


Compiling 


No special errors. 


Linking 

1. Cannot modify 32 bit instructions. The object files were complied with the wrong 
compiler settings. Delete all of the .f.o object files and re-run the Build. 

Resolve 

1. Invalid argument. CHookc.c.o was written to check for non-numeric input 
variables. This error means that a non-numeric value has been entered an input cell 

of the spreadsheet. 

2. Can not open function. . . , ... 

Check the function name in the script to be sure it is the same name as specified 

in Setup, f. , „ .... 

Check that the function file is in the same folder as the Resolve application. 

Use Open • Tool smySFGetFile external function. See next section for more 

information. 


Open■Tools mySFGetFile 

A useful tool for finding a file while running a Resolve script is the external 
function mySFGetFile. This function will open a standard "Open File window 
and allow the user to find the desired file. This function returns the full path name 
of the file which can be used with file functions to load or open the file. The 
function mySFGetFile is located in the file Open-Tool. This file comes with 
Resolve and is located in the folder External Examples within the Resolve Samples 

folder 

There are many ways to setup your Resolve folder, but for simplicity and this 
example create a folder named Externals and place it in the same folder as the 
Resolve application. Move or copy the Open • Tool file into the Externals folder. 

Now the script line: 

GET EXT ERNAL ":Externals:Open•Tool" ___ 
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will load the Open-Tool :mySFGetFile function. The form of the function is: 

Open•ToolsmySFGetFile(<prompt string>,"<file typel>","<file 
type2>","<file type3>","<file type4> ) 

were file typel, file type2 / file type3 and file type4 are file type filters 
fe e PICT APPL, TEXT, etc). These filters will cause files of the type specified 
to appear in the Open dialog. If no filters are passed, files of all types will appear. 
In thecase of Resolve external functions the file type is RsTl. The following 
example shows how the script in STEP 15 would be written when the 
mvSFGetFile function is added within an error handling routine (ON ERROR). 


DEFINE a, b,c,d,e,n,x, fullpath 
a - B1 
b = B2 
c = B3 
d = B4 
e = B5 

GET EXTERNAL "{Externals:Open•Tool" 

GET EXTERNAL "ResExtern” 

FOR n = 0 TO 4 

x = ResExtern:FHook(a,b,c,d,e,n) 

PUT X INTO MAKECELL(3,n+1) 

END FOR 


ON ERROR 

y = LError() 

IF(y = 61) 

fullpath = 'Open-TooljmySFGetFile'("Please 

ResExtern : , RsTl , , , ) 

GET EXTERNAL fullpath 


END IF 
IF(y = 12) 


SOUND EFFECT "Monkey" 
SOUND EFFECT "Monkey” 
SOUND EFFECT "Monkey" 
MESSAGE SError() 

ABORT 


find 


END IF 
END ERROR 


The mySFGetFile function can also be added to the resource fork of the 
spreadsheet. To do this requires ResEdit and a knowledge of how to use it. 
WARNING: Misuse of ResEdit can cause irreparable damage to files and 

applications. 


FPU OPTIONAL CODE 


Language System FORTRAN has the option of compiling your code to take 
advantage of the type of machine and the presence of an FPU. Because this is 
compile? option Language System FORTRAN will allow for FPU optional code 
generation. Meaning that the same external function can run on a Plus as well as a 
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STEP 20 
STEP 21 

STEP 22 


Quadra 950 and take advantage of the FPU. To do this requires minimal additional 
programing. 

Duplicate your subroutine and give the file a different name than the original. 

Modify this file by renaming the main subroutine and all lower subroutines and 
subroutine calls. Failure to do this will cause a linker warning about duplicate 
namAc and ronlH cause run time problems. 


Modify the FHook.f file by adding the following lines between the last declaration 
and the first operational line: 


STEP 23 


1 IMP Inlines.f 

INCLUDE ’{MPW}Interfaces:FIncludes:OSUtils.f' 
INCLUDE '{MPWjInterfacessFIncludessTraps.f' 


POINTER /SysEnvRec/ SysEnvRecPtr 


SysEnvRecPtr = NewPtr(sizeof(SysEnvRec)) 

OSErr = SysEnvirons(curSysEnvVers,SysEnvRecPtr) 


Modify the FHook.f file prior to the subroutine call by adding an if-then statement 
decking the variable SysEnvRecPtr*. hasFPU. In the TRUE section of the if put 
the call to the new subroutine. In the FALSE section put the original call. Save 

FHook.f. 


The FHook.f program in STEP 4 would now look like this: 


SUBROUTINE FHook(args,revals) 

REAL*8 args(*), revals(100) 

REAL*8 argl,arg2,arg3,arg4,arg5 

REAL*8 arg6,arg7,arg8,arg9,arglO,argl1/argl2 


I IMP Inlines.f 

INCLUDE 1 {MPW}Interf aces:FIncludes:OSUt:ils . f 
INCLUDE '{MPW>Interf aces:FIncludes sTraps.f' 


POINTER /SysEnvRec/ SysEnvRecPtr 


SysEnvRecPtr = NewPtr(sizeof(SysEnvRec)) 

OSErr = SysEnvirons(curSysEnvVers,SysEnvRecPtr) 


c 

c 

c 

c 

c 

c 

c 

c 


: your subroutine needs other type of variables (real*4, integer, 

■ c .) use the appropriate conversion function to avoid garbage from 
iincr passed. Here are some examples 


a = SNGL(args(l)) 
b = IDINT(args(2)) 
c = IIDINT(args(3)) 
args(4) = DBLE(d) 


! from real*8 to real*4 
l from real*8 to integer*4 
l from real*8 to Integer*2 
lany to real*8 


argl 

arg2 

arg3 


args(1) 
args(2) 
args(3) 


IThis is the setting of the subroutine 
larguments. Add more statements as 
las needed. 

Pape 8 of 10 Printed: Wednesday, March 10,1993 


FORTRAN external functions for Claris Resolve and Language System FORTRAN 



c 

c 


arg4 = args(4) 
arg5 = args(5) 

Calling your subroutine. Change this call as necessary to match 
your subroutine. 

if(SysEnvRecPtr".hasFPU) then 
c Use FPU 

call yoursub81(argl,arg2,arg3,arg4,arg5, 

s, arg6, arg7,arg8,arg9, arglO, argil,argl2) 


else 


c NO FPU 

call yoursub(argl,arg2,arg3,arg4,arg5, 

& arg6,arg7,arg8, arg9,arglO,argil,argl2) 

end if 

revals(l) = arg6 
revals(2) = arg7 
revals(3) = arg8 
revals(4) = arg9 
revals(5) = arglO 
revals(6) = argil 
revals(7) = argl2 

return 
end 

STEP 24 Modify the .make file by adding the new subroutine file in the compile list. Do this 
by copying the old subroutine compile directive and pasting it to the end ot the 
compile list. Change the old subroutine name to the new name. Add to the compiler 
options of the new subroutine -MC68020 -MC-68881. These new options will take 
advantage of 68020 and above CPUs with 68881 and above FPUs This covers 
most of the Mac IIs and the new high end Macs. The new mid range Macs may or 
may not have an FPU. Add the new subroutine object file name in the objects list 

and save the file. 

The Make file in the first STEP 5 would now look like this: 


IThis sets the output array 
lwith the appropriate 
1 subroutine arguments. 


# Files 

# Target: 

# Sources s 

# Created: 


ResExtern.make 
ResExtern 

FHook.f Setup.f yoursub.f 
Friday, March 5, 1993 2:21:05 PM 


OBJECTS = CHookc.c.o FHook.f.o Setup.f.o yoursub.f.o yoursub81.f.o 


ResExtern // ResExtern.make {OBJECTS} 

Link -t RsTl -c Rslv d 

{objects} a 

,, {Libraries} ,, Runtime.o d 
"{Libraries}"Interface.o d 
" {FLibraries}"FORTRANlib.o d 
"{FLibraries}"IntrinsicLib.o a 
-o ResExtern 

FHook.f.o / ResExtern.make FHook.f 
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FORTRAN FHook.f -opt~l 
Setup.f.o / ResExtern.make Setup.f 
FORTRAN Setup.f -opt=l 
yoursub.f.o / ResExtern.make yoursub.f 
FORTRAN yoursub.f -opt=l 
voursub81.f.o / ResExtern.make yoursub81.f 

FORTRAN yoursub81.f -opt=l -MC68020 -MC68881 

STEP 25 Re-run the make file by using the Build... under the Build menu. 

This new external function will work on all Macs. If the Mac has an FPU the 
performance of the function will be increased over the original function created in 

STEP 1 throueh STEP 19. 
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USER GUIDE 


Subject: 


External Functions for Claris Resolve for the Macintosh written in FORTRAN 
complied with Absoft MacFortran II version 3.1 and MPW version 3.2 


Written By: David W. Harris 

Rocketdyne Division 
Rockwell International 
PO Box 7922 
6633 Canoga Ave. 

Canoga Park, CA 91309-7922 
(818) 718-4677 

Date: February 10,1993 


INFORMATION PROVIDED IN THIS 

EXPRESSEDORHHPUED JNCLWHNG BUT NOT UMrTED TO THE IMPLIED WARRANTIES OF MERCHANTABILITY 
AND/OR FITNESS FOR A PARTICULAR PURPOSE. The user assumes the entire nsk as to the accuracy and the use of this 
User guide This User guide may be copied and distributed subject to the following conditions: 1) AI text must be copied 
wUhout modification and all pages must be included; 2) If software is included, all files on the d,sk(s) must be: copied 
without modification; 3) All components of this User guide must be distributed together, and 4) This User gui e y 

distributed for P rof,t aarj ^ Clarjs Res0 , ve and R eso lve are registered trademarks of Claris Corporation 

Macintosh is a registered trademark of Apple Computer, Incorporated. 

MacFortran II is a trademark of Absoft Corporation. 
ti»ic Argument was created usine Microsoft Word for the Macintosh. 


Purpose: 


This User guide is to lead a person with limited knowledge of Macintosh 
programing through the steps necessary to turn a FORTRAN subroutine into an 
Resolve external function. This guide assumes that the user has a little familiarity 
with the Absoft FORTRAN compiler and Claris Resolve. For more detailed 
information refer to the MacFortran II Reference Manual and to the Resolve User 
Guide and Claris Technical Note. 


INTRODUCTION 

Claris Resolve versions l.lvl and above have the ability to call external code that 
can be used as spreadsheet functions. This code is an assembly language code with 
the proper data handling that allows it to be called or linked to other code. To create 
a Resolve external function with this guide you must have the following; 

1. The CHookc. c. o object file 

2. A FORTRAN subroutine Setup . f 

3. A FORTRAN subroutine FHook. f 

4. Your FORTRAN subroutine 

5. Funcname application 

Note: The Absoft MacFortran II compiler creates code that requires an FPU. 
Therefore, the code development described here will not work on some of the older 
Mac's (Plus,SE) and some of the newer ones without FPUs (Classic, LC, SI, 

Centris). 
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STEP 1 


STEP 2 
STEP 3 


Because of the required interface between Resolve and an external function an 
interface program or "hook” had to be written in "C" code. This program handles 
the setting of variables that Resolve uses to call the external function and the 
passing of program variables. A hook called CHookc.c.o was created as a generic 
interface. This hook calls two FORTRAN subroutines. Setup. £ and FHook. f. The 
Setup . f subroutine supplies the CHook with two necessary pieces of information, 
the name of the function to be used by Resolve and the number of input arguments. 
The name of the function is not the file name but the function name used in the 
Resolve script to call the external function. The function nam £ cannot be over 8 
characters long. Because the passing of string variables from FORTRAN to C is 
tricky, an application, Funcname, has been provided to create the setup . f tile. 
Executing this program will create a complete Setup, f file ready for compiling an 
linking. FHook. f is the front-end for your subroutine. Your subroutine will be 
called by FHook. f. FHook. f must be written with two arguments, an input array 
and an output array. Both arrays must be double precision real and dimensioned 
input(*) and output(lOO). The generic "C" hook was written to handle infinite inpu 
and 100 output variables. FHook. f can be used to manipulate the input and outpu 
data to your subroutine. That is do things such as reassign the values to other 
variable, change from double to single precision, convert the value and so on. 


The following is a set of steps that will allow you to create a Resolve external using 
the CHookc.c.o interface. It is suggested that all of the steps are followed the first 
time. After that any changes to the FORTRAN code that do not change file names 

will require only a simple Build command and maybe minor changes to the 
Resolve script. 


Create a SetUp subroutine. To do this run the program Funcname. This program 
will create a file SetUp.f that is necessary for the Resolve interface. When 
Funcname asks for ’Resolve Function Name', enter the name that you what to call 
the function in Resolve and for 'Number of Input variables', enter the number of 
input variables to your subroutine. 


Launch MPW 

Open (File, Open...) and change your FORTRAN subroutine so that it meets the 
programing rules. 


Programing Rules 

• No global or static storage: FORTRAN programs can have no common , block 
data, or save statements and the -s compiler option cannot be used to force static 

storage. 

• No FORTRAN I/O statements: see the following list. A lack of I/O is a serious 
limitation, but I/O is often for user interaction which is the function of Resolve. 


ACCEPT 

OPEN 

BACKSPACE 

PAUSE 

CLOSE 

PRINT 

DECODE 

READ 

ENCODE 

REWIND 

ENDFILE 

STOP 

FORMAT 

TYPE 

INQUIRE 

WRITE 

NAMELIST 
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• No run time error messages: some compiler options such as the "Check array 
boundaries” option, -C, and the subprogram folding options, -z and -Z, can 
generate a run time error message. A CASE statement with a missing CASE 
DEFAULT can also cause a run time error unless the -N4 option is used. 


• No character constants: a statement such as 

CHARACTER*26 myString myString 38 'I paid my taxes on April 7. 

will cause a linker error. Using CHARACTER* 1 arrays initialized with data 
statements or char () functions can be used to create a character constant. 


STEP 4 


Create (FilB, NBIll) a Resolve to FORTRAN interface function. This subroutine 
must have the name FHook. f . The following function can be used as a boiler plate 

code. 


SUBROUTINE FHook(args,revals) 


REAL*8 args(*), revals(100) 

REAL*8 argl,arg2,arg3,arg4,arg5 

REAL*8 arg6,arg7,arg8,arg9,arglO,argil,argl2 


c 

c 

c 

c 

c 

c 

c 

c 


If your subroutine needs other type of variables (real*4, integer, 
etc.) use the appropriate conversion function to avoid garbage from 
being passed. Here are some examples 


a = SNGL(args(l)) 
b * IDINT(args(2)) 
c = IIDINT(args(3)) 
args(4) = DBLE(d) 


I from real*8 to real*4 
Ifran real*8 to integer*4 
l from real*8 to Integer*2 
!any to real*8 


argl = args(l) 
arg2 « args(2) 
arg3 = args(3) 
arg4 = args(4) 
arg5 = args(5) 


IThis is the setting of the subroutine 
!arguments. Add more statements as 
ias needed. 


c Calling your subroutine. Change this call as necessary to match 
c your subroutine. 


call yoursub(argl,arg2,arg3,arg4,arg5, 

arg6,arg7,arg8,arg9,arglO,argil,argl2) 


revals(1) 
revals(2) 
revals(3) 
revals(4) 
revals(5) 
revals(6) 
revals(7) 


= arg6 
= argl 
= arg8 
= arg9 
= arglO 
= argil 
= argl2 


IThis sets the output array 
Iwith the appropriate 
!subroutine arguments. 


return 

end 
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STEP 5 


Create a Build script. Either use the following example Build script file (saved as 

ResExtern.make) as boiler plate or use the Create BuildCommandS menu. 
It is important to include CHookc . c. o in the OBJECTS sections. CHookc. c. o is the 

Resolve to FORTRAN hook. 


# Files 

# Target: 

# Sources: 

# Created; 


ResExtern.make 
ResExtern 
FHook.f Setup.f 

Monday, January 18, 1993 9;16:12 AM 


OBJECTS = CHookc.c.o FHook.f.o Setup.f.o yoursub.f.o 


FFLAGS = -q -k -N14 


ResExtern // ResExtern.make {OBJECTS} 
Link -t 'RsTl' -c Rslv d 
{OBJECTS} d 

"{Libraries}"Runtime.o d 
"{Libraries}"Interface.o d 
"{FLibraries}"f77math.o d 


-o ResExtern 

FHook.f.o / ResExtern.make FHook.f 
f77campiler {FFLAGS} FHook.f 
Setup.f.o / ResExtern.make Setup.f 
f77compiler {FFLAGS} Setup.f 
yoursub.f.o / ResExtern.make yoursub.f 
f77compiler {FFLAGS} your.sub.f 


Running Create BuildCommandS 

1. Select Create BuildCommandS... under the MacFortran menu. 

2. In Program Name type the name of the file used in th efilejext argument of 
the get external function. In the above example the Program Name is 
ResExtern. 

3 Click on the Source Files... button and select the function and subroutines that 
will be linked together. These include FHook.f and Setup.f as well as your 
subroutine. 

4. Click on CreateMake 

5. Open the file "Program Name". make (in the above example it would be 
ResExtern.make) and change the following: 

Add -N14 -k next to FFLAGS -q, separated with only a space. 

Add CHookc. c. o in the front of the OBJECTS list. 

Remove the line: filename ff filename.make Duplicate -r -y 
"{FLibraries}F77mrwe.o" filename 
Change the APPL to 1 RsTl ’ 

Change the '????' to ’ Rslv ' 
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STEP 6 
STEP 7 


Remove -f -model far 
Remove the following libraries: 

" { FLibraries}" F77mrwe .0 d 
"{FLibraries}"frt0.o d 

"{FLibraries}"f77io.o d ... 

Remove unnecessary libraries noted by the Linker. They will not cause a linker 

abort, but there will be a warning. 

If Linker reports 32K iump errors add -N8 and -Nil to the fflags list. 


Run Build... under the MacFortran menu. In the window type the program 
file name. 

Correct the code to remove any compile and linker errors and repeat STEP 6. 


STEP 8 
STEP 9 


Quit MPW 

Move the compiled function file into the same folder as the Resolve application. 


STEP 10 Launch Resolve 

STEP 11 Create a Button using button tool from tool palette. Name it Load (Edit, Button 
Info...) 

STEP 12 Open the button script (Script, Button Script) and write: 

get EXTERNAL "sResExtern" , . .._ 

Replace the word ResExtern with the name of your compiled function tile. 

STEP 13 Close button script and save. 


STEP 14 

STEP 15 


Create a Button using button tool from tool palette. Name it Calculate (Edit, 

Button Info...) 

Open the button script (Script, Button Script) and write a Resolve script that 
defines your input variables, one output variable and a counter. Because Resolve 
External Functions can only return one value at a time you will have to create a loop 
and call your function once for each subroutine return variable you want. Your 
function call will include each of your input variables and the counter. The counter 
must be the last item in the list. Assign the return variable to the function (le. x- 
function). For the first call to the function the counter must be equal to zero. The 
return value will be the first return variable. Therefore, the loop counter should go 
from zero to "the number of return variables"-l. The follow example is for the 
function FHook in the ResExtern file. FHook has 5 input variables and 7 output 
variables. The input values are located in cells Bl, B2, B3 B 4 and B5 on the 

spreadsheet. The return values will be placed in cells Cl, C2, C3, C4, C5, C6 

and C7 as directed by the PUT x statement. 


DEFINE a,b,c,d,e,n,x 
a = Bl 
b = B2 
c = B3 
d = B4 
e = B5 
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FOR n = 0 TO 6 

x * ResExtern:FHook(a,b,c,d,e,n) 

POT x INTO MAKECELL(3,n+1) 

END FOR 

Replace the word ResExtern with the name of your compiled function file and 
FHook for the name you specified when running Funcname. 

STEP 16 Close button script 

STEP 17 Press the"Load" button This loads the external function. 

STEP 18 Press the "Calculate" button to run the function 

STEP 19 Save worksheet. 

After following this procedure you will have two files to keep track of. 

• FORTRAN Function 

• Resolve worksheet 


To avoid operational problems keep these files in the same folder. Similarly there 
are FORTRAN files that should be kept together: 

• Function source code file 

• Any Subroutine source code files 

• Function .make file 


PROBLEMS 

The following are some special errors that may occur during the development 
process and some hints that may help to eliminate these problems. 


Compiling 

No special errors. 

Linking 

1. Cannot modify 32 bit instructions. The object files were complied with the wrong 

compiler settings. Delete all of the .f.o object files and re-run the B U i I d. 

2. Cannot make 32K jump. Add -N8 and -Nil to the FFLAGS list. Delete all of the 

.f.o object files and re-run the Build. 

Resolve 

1. Invalid argument. CHookc.c.o was written to check for non-numeric input 
variables. This error means that a non-numeric value has been entered an input cell 
of the spreadsheet. 

2. Can not open function. , 

Check the function name in the script to be sure it is the same name as specified 

in Setup, f. 
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Check that the function file is in the same folder as the Resolve application. 

Use Open -Tools mySFGetFile external function. See next section for more 

information. 


Open * Tool:mySFGetFile 


A useful tool for finding a file while running a Resolve script is the external 
function mySFGetFile. This function will open a standard Open File window 
and allow the user to find the desired file. This function returns the full path name 
of the file which can be used with file functions to load or<Dpen the file. The 
function mySFGetFile is located in the file Open-Tool. This file comes with 
Resolve and is located in the folder External Examples within the Resolve Samples 

There are many ways to setup your Resolve folder, but for simplicity and this 
example create a folder named Externals and place it in the same folder as the 
Resolve application. Move or copy the Open • Tool file into the Externals folder. 

Now the script line: 

GET EXTERNAL "sExternalssOpen*Tool" 
will load the Open»Tool mySFGetFile function. The form of the function is: 

Open•ToolsmySFGetFile(<prompt string>,"<file typel>","<flie 
type2>","<file type3>","<file type4>") 

were file typel, file type2, file type3 and file type4 are file type filters 
(e e PICT APPL TEXT, etc). These filters will cause files of the type specified 
to appear in the Open dialog. If no filters are passed, files of all types will appear. 
In the case of Resolve external functions the file type is RsTl. The following 
example shows how the script in STEP 15 would be written when the 
mvSFGetFile function is added within an error handling routine (ON ERROR). 


DEFINE a,b,c,d,e,n,x,fullpath 
a = B1 
b = B2 
c = B3 
d = B4 
e = B5 

GET EXTERNAL Externals:Open•Tool" 

GET EXTERNAL "ResExtern" 

FOR n = 0 TO 4 

x = ResExtern:FHook(a,b,c,d,e,n) 
PUT x INTO MAKECELL(3,n+1) 

END FOR 


ON ERROR 

y = LError() 

IF(y = 61) 

fullpath = 'Open -Tool:mySFGetFile'("Please find 

• >■ it— _i ii it n it ti ii it \ 

ResExtern : , RsTl , , f ) 

GET EXTERNAL fullpath 

END IF 
IF(y = 12) 
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SOUND EFFECT "Monkey" 

SOUND EFFECT "Monkey" 

SOUND EFFECT "Monkey” 

MESSAGE SError() 

ABORT 

END IF 
END ERROR 

The mySFGetFile function can also be added to the resource fork of the 
spreadsheet. To do this requires ResEdit and a knowledge of how to use it. 
WARNING: Misuse of ResEdit can cause irreparable damage to Files and 

applications. 
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USER GUIDE 


Subject: 


External Functions for Microsoft Excel for the Macintosh written in FORTRAN 
complied with Absoft MacFortran II version 3.1 and MPW version 3.2 


Written By: David W. Harris 

Rocketdyne Division 
Rockwell International 
PO Box 7922 
6633 Canoga Ave. 

Canoga Park, CA 91309-7922 
(818) 718-4677 
Date: August 12 1992 


iMBnBMATinN PROVIDED IN THIS DOCUMENT AND ANY SOFTWARE THAT MAY ACCOMPANY THIS DOCUMENT 

AND/OR FITNESS FOR A PARTICULAR PURPOSE. The user assumes the entire risk as to the accuracy and the use of this 
Use?guide This User guide^may be copied and distributed subject to the following conditions: 1) A 1 text must be copied 
wUhom modification and all pages must be included; 2) If software is included, all file.i on the d.sk(s) must be coped 
without modification; 3) All components of this User guide must be distributed together; and 4) This User guide may not be 

distributed for Microsof , Excel an( j Excel are registered trademarks of Microsoft Corporation 

Macintosh is a registered trademark of Apple Computer, Incorporated. 

MacFortran II is a trademark of Absoft Corporation. 

TUi* Argument was created us in 2 Microsoft Word for the Macintosh. 


Purpose: 


This User guide is to lead a person with limited knowledge of Mac programing 
through the steps necessary to turn a FORTRAN subroutine into an Excel external 
function. This guide assumes that the user has a little familiarity with the Absoft 
FORTRAN compiler and Microsoft Excel. For more information refer to the 
MacFortran II Reference Manual and to the Excel User Guide, Function Reference 
and Microsoft Application Note: ME0333. 


INTRODUCTION 

Microsoft Excel versions 2.2 and above have the ability to call external code 
resources that can be used as spreadsheet functions. A "Code Resource is an 
assembly language code with the proper data handling that allows it to be called or 
linked to other code. There are many different types of code resources but for this 
application the resource needs to be type CODE. Apple Technical Note #256 has 
additional information on code resources but it is not necessary to read if the 
examples of this note are followed. 

Note: The Absoft MacFortran II compiler creates code that requires an FPU. 
Therefore, the code development described here will not work on some of the older 
Mac's (Pl’us,SE) and some of the newer ones without FPUs (Classic, LC, SI, 

Centris). 
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STEP 1 
STEP 2 


Launch MPW 

Open (File, Open...) and change your FORTRAN subroutine so that it meets the 
programing rules. 


Programing Rules 


• No global or static storage: FORTRAN programs can have no COMMON, BLOCK 
DATA, or save statements and the -s compiler option cannot be used to force static 

storage. 

• No FORTRAN I/O statements: see the following list. A lack of I/O is a serious 
limitation, but I/O is often for user interaction which is the function of Excel. 


ACCEPT 

OPEN 

BACKSPACE 

PAUSE 

CLOSE 

PRINT 

DECODE 

READ 

ENCODE 

REWIND 

ENDFILE 

STOP 

FORMAT 

TYPE 

INQUIRE 

WRITE 

NAMELIST 



• No run time error messages: some compiler options such as the "Check array 
boundaries" option, -C, and the subprogram folding options, -z and -Z, can 
generate a run time error message. A CASE statement with a missing CASE 
DEFAULT can also cause a run time error unless the -N4 option is used. 

• No character constants: a statement such as 

CHARACTER* 2 6 myString myString = 'I paid my taxes on April 7. 

will cause a linker error. Using CHARACTER* 1 arrays initialized with DATA 
statements or char () functions can be used to create a character constant. 


STEP 3 Create (File, Neill) an Excel to FORTRAN interface function. The following 
function can be used as a boiler plate code. This example program is saved as 

xfunc.f. 


PASCAL INTEGER*4 FUNCTION MAIN(in) 


c This function works as a Integer function in EXCEL with "KK” type_text. 


STRUCTURE /inlist/ IThis is the input list from Excel. 

INTEGER*2 row 
INTEGER*2 col 
REAL*8 ary(lOO) 

END STRUCTURE 


STRUCTURE /outlist/ IThis is the output list from the 

INTEGER*2 row lFORTRAN program. 

INTEGER*2 col 
REAL*8 ary(lOO) 

END STRUCTURE 
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RECORD /inlist/ in 
RECORD /outlist/ out 

c This is the declaration of arguments for the FORTRAN subroutine. 


real*8 argl,arg2,arg3,arg4,arg5,arg6 


c 

c 

c 

c 

c 

c 

c 

c 


If your subroutine needs other type of variables (real*4, integer, 
etc.) use the appropriate conversion function to avoid passing garbage 

Here sure some examples 


a = SNGL(ary(l)) 
b = IDINT(ary(2)) 
c = IIDINT(ary(3)) 
ary(4) = DBLE(d) 


tfram real*8 to real*4 
Ifrom real*8 to integer*4 
I from real*8 to Integer*2 
jany to real*8 


axgl = in.ary(1) 
arg2 = in.ary(2) 
arg3 = in.ary(3) 


lThis is the setting of the subroutine 
larguments. Add more statements as 
las needed. 


c Calling your subroutine. Change this call as necessary to match 
c your subroutine. 


call yoursub(argl,arg2,arg3,arg4,arg5 , arg6) 

out row = 3 IThis sets the worksheet area. 

£:S = 1 !Adjust as needed. 


out.ary(l) = arg4 IThis sets the output array 

out.ary(2) = arg5 lwith the appropriate 

out.ary(3) = arg6 !subroutine arguments. 

c The last thing to do is set the function values to the structure 
c pointer. No need to change this statement. 


MAIN = IOC(out) 

return 

end 


The STRUCTURE in this function would be good for any combination of arguments 
where row*columns <= 100. The record declaration is necessary to assign the 
name "in" to the structure "inlist". The variables are now referred to with the 
prefix "in." (in. row, in. col, in. ary (1),...). The values in ary are arranged 

as such: 


ary(l) = row,, col, 
ary( 2) = row 1; col 2 


ary(m) = row,,col m 
ary(m+l) = row 2 ,col 1 


ary(n*m) = row n ,col m 
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STEP 4 


Create a Build script. Either use the following example Build script file (save as 
xfunc.make) as boiler plate or use the Create BuildCommandS menu. 

# File: xfunc.make 

# Target: xfunc 

# Sources: xfunc.f yoursub.f ... 

# Created: 

# Add to this OBJECTS list all necessary subroutines 
OBJECTS - xfunc.f.o yoursub.f.o 


FFLAGS = -q -N14 -k 


xfunc // xfunc.make {OBJECTS} 

Link -t XLLB -C XCEL -rt CODE=128 
{OBJECTS} d 

# This library list can be modified to 

# libraries 

"{Libraries}"Runtime.o 8 
■■ { T.i h rari es} " Interface.o d 
”{FLibraries}"F77stubs.o d 
"{FLibraries}"frt0.o d 
"{FLibraries}"f77io.o d 
"{FLibraries}"f77math.o d 

-o xfunc 


-m MAIN -sg main 8 
remove unnecessary 


xfunc•f.o f xfunc•make xfunc•f 

f77compiler {FFLAGS} xfunc.f 

# Repeat the next two lines for each subroutine and change 

# yoursub to each of the subroutine names 
yoursub.f.o / xfunc•make yoursub•f 

f77compiler {FFLAGS} yoursub.f 


Running Cr60t6 BuildConimnnds 

1. Select Create BuildCommandS... under the MacFortran menu. 

2. In Program Name type the name of the file used in th efile^text argument of the 
REGISTER or CALL function. In the above example the Program Name is 
xfunc. 


3. in the Program Tgpe box select Code Resource 

4. In the box next to Creator put HCEL. (Note characters must be all upper case.) 


5. In the box next to Tgpe put HLLB. (Note characters must be all upper case.) 

6. In the box next to MainEntrg Point type the name of the FORTRAN function. 
Must be all upper case. This is the name used in the resource jext argument of the 

REGISTER or CALL function. In the above example the Main Entry Point is 

MATN. 
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STEP 

STEP 

STEP 

STEP 

STEP 

STEP 

STEP 


STEP 

STEP 

STEP 

STEP 


7. In the box next to Resource Type put C0DE=128 

8. Click on the Source Files... button and select the function and subroutines that will 
be linked together. The main function (the one called by Excel) must be first. In the 
above example xfunc. £ is the main program and yoursub. f is a subroutine. 

9. Click on CreateMake 

10. Open the file "Program Name" .make (in the above example it would be xf unc .make) 
and change the following: 

Add -N14 -k next to FFLAGS -q, separated with only a space. 

Change the word next to -sg to the same name as the -m option only all lower case. 
When this link is run any unnecessary libraries will cause a warning message. 
They will not cause a linker abort, but there will be a warning. The 
unnecessary libraries can be removed for the library list. (See above example) 

5 Run Build... under the Mac Fortran menu. In the window type the program 
file name. 

6 Correct the code to remove any compile and linkers errors and repeat STEP 5. 

7 Quit MPW 

8 Move the compiled function file into the Excel folder. 

9 Launch Excel 

10 Open a new Macro sheet. (File, Neill...) 

11 Create the following macro: 



fl 

1 

load 

2 

-REGISTER!" Hfunc ","Mfl IN ","KK") | 

3 

-RETURNO | 


Replace the word Hfunc with the name of your compiled function file. 

12 Select cell A1 and then select Define Name under the Formula Menu. Select 

the Command button and type p in the box next to Key:. Click OK. Now 
pressing "option + 4 + p" will load the external function. 

13 Save this Macro sheet as load.Kfunc using Saue Rs... 

14 Press "option + 4 + p". This loads the external function. 

15 Press " 4 + ' ". In A2 a number should be there, if not there is something wrong 
with the REGISTER arguments, the Build script or the interface code. Check for 
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consistency between names and arguments. Press " ft + ' " again to return to 
normal display. 

STEP 16 Create your worksheet and select the appropriate output range for your function and 

type in a CALL function with load.Xfunc!$H$2asthe register text and the 
appropriate input range. Enter the function by pressing "# + enter" (This entry 
method is necessary for any Excel array function). The following is an example for 
a function that has a 3 cell input range and a l-by-3 (rows by columns) output 
range: 



R 

1 

1 

2 

2 

3 

3 

4 


5 

= CRLL(load.xfunc!$A$2,R1 :H3) 

6 


7 



The double box is the selected area. Cells A5, A6 and A7 are now the return array. 
STEP 17 Save the worksheet. 

STEP 18 Select Define Name under Formula menu 
In the Name: box type autoload 
In the Refers to: box type load.xfunclload 

Click Add 
Click Ok 

STEP 19 Save worksheet. 

Now when the worksheet is opened the Macro sheet will automatically be opened 
and executed, loading the external function. 

After following this procedure you will have three files to keep track of: 

• FORTRAN Function 

• Excel worksheet 

• Excel Macro sheet 

To avoid operational problems keep these files in the same folder. Similarly there 
are FORTRAN files that should be kept together: 

• Function source code file 

• Any Subroutine source code files 

• Function .make file 
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